创建新工作表 Excel Visual Basic - VBA

在Excel VBA中，创建新工作表非常简单。以下是一个简单的代码示例，演示了如何在Excel中使用VBA创建新工作表：

代码示例

Sub CreateNewWorksheet()
    Dim newWorksheet As Worksheet
    Set newWorksheet = ThisWorkbook.Sheets.Add
    newWorksheet.Name = "New Worksheet"
End Sub

在这个代码示例中，首先定义了一个名为 newWorksheet 的变量，变量类型为 Worksheet。然后，使用 Set 关键字将新创建的工作表分配给该变量。这里使用 ThisWorkbook.Sheets.Add 方法创建一个新的工作表，并将其分配给 newWorksheet 变量。最后，使用 newWorksheet.Name 将该工作表的名称设置为 "New Worksheet"。

进行更多操作

创建新的工作表只是Excel VBA中的第一步。有了新工作表，你可以通过编写代码进行许多有用的操作，如数据分析、报表生成等。以下是几个有用的代码示例，可以在新工作表上执行：

将数据写入单元格

Sub WriteDataToCell()
    Dim newWorksheet As Worksheet
    Set newWorksheet = ThisWorkbook.Sheets.Add
    newWorksheet.Name = "New Worksheet"
    
    newWorksheet.Range("A1").Value = "Hello, World!"
End Sub

使用循环填充单元格

Sub FillCells()
    Dim newWorksheet As Worksheet
    Set newWorksheet = ThisWorkbook.Sheets.Add
    newWorksheet.Name = "New Worksheet"
    
    Dim row As Integer
    Dim column As Integer
    
    For row = 1 To 10
        For column = 1 To 10
            newWorksheet.Cells(row, column).Value = row * column
        Next column
    Next row
End Sub

格式化单元格

Sub FormatCell()
    Dim newWorksheet As Worksheet
    Set newWorksheet = ThisWorkbook.Sheets.Add
    newWorksheet.Name = "New Worksheet"
    
    newWorksheet.Range("A1").NumberFormat = "0.00"
    newWorksheet.Range("A2").NumberFormat = "0%"
    newWorksheet.Range("A3").NumberFormat = "@"
End Sub

排序数据

Sub SortData()
    Dim newWorksheet As Worksheet
    Set newWorksheet = ThisWorkbook.Sheets.Add
    newWorksheet.Name = "New Worksheet"
    
    newWorksheet.Range("A1:B10").Value = Array(Array(1, "John"), Array(2, "Tom"), _
                                               Array(3, "Alice"), Array(4, "Bob"), _
                                               Array(5, "Sam"), Array(6, "David"), _
                                               Array(7, "Jack"), Array(8, "Amy"), _
                                               Array(9, "Jane"), Array(10, "Emily"))
    
    newWorksheet.Range("A1:B10").Sort Key1:=newWorksheet.Range("A1"), Order1:=xlAscending
End Sub

这些示例只是Excel VBA中可以使用新工作表进行的操作的示例。使用VBA，可以执行许多自动化任务以提高工作效率。