VBA 删除指定列代码示例

以下是一个 VBA 代码示例，用于删除指定的列：

Sub DeleteColumn()
    Dim columnToDelete As Integer
    columnToDelete = 3 ' 要删除的列的索引号
    
    ' 确保选择了一个单元格
    If Not TypeName(Selection) = "Range" Then
        MsgBox '请先选择一个单元格。'
        Exit Sub
    End If
    
    ' 确保选择的是一个单列
    If Selection.Columns.Count > 1 Then
        MsgBox '请选择一个单列。'
        Exit Sub
    End If
    
    ' 确保要删除的列存在
    If columnToDelete > Selection.Columns.Count Then
        MsgBox '要删除的列不存在。'
        Exit Sub
    End If
    
    ' 删除列
    Selection.Columns(columnToDelete).Delete
End Sub

在此示例中，我们首先定义了要删除的列的索引号（在本例中为第 3 列）。然后，我们检查是否选择了一个单元格，并且确保选择的是一个单列。最后，我们使用 Delete 方法删除指定的列。