在表中添加新列的 VBA 代码

在 VBA 中，我们可以使用代码来向 Excel 表格中添加新列。以下是添加新列的代码片段示例和解释：

Sub AddNewColumn()
    
    Dim ws As Worksheet
    Dim lastColumn As Long
    
    ' 定义要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取当前最后一列的列号
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 在最后一列右侧插入一列
    ws.Columns(lastColumn + 1).Insert Shift:=xlToRight
    
    ' 设置新列的标题
    ws.Cells(1, lastColumn + 1).Value = "New Column"
    
End Sub

上述代码中，我们首先定义要操作的工作表 ws，随后通过 ws.Columns.Count 获取当前工作表的最大列数，即最后一列的列号。接着使用 ws.Cells(1, lastColumn) 获取最后一列的表头，并向右边插入一列。最后设置新列的标题为 "New Column"。

此外，针对新列的值，我们可以使用类似于以下代码的方式赋值：

ws.Cells(2, lastColumn + 1).Value = "Value1"
ws.Cells(3, lastColumn + 1).Value = "Value2"

从上述代码中，我们可以发现，在 VBA 中，通过操作 Cells 和 Columns 等对象，我们可以轻松地完成表格的创建、修改和删除等操作。如果您想深入学习 Excel VBA，可以查看 Excel VBA 教程 等相关资源。