VBA 删除C列与D列

要在VBA中删除C列和D列，您可以使用以下代码：

Sub DeleteColumns()
    ' 定义工作表对象
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '更改为您的工作表名称

    ' 禁用屏幕刷新和事件处理
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    ' 删除C列和D列
    ws.Range("C:D").Delete Shift:=xlToLeft

    ' 启用屏幕刷新和事件处理
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

请确保将“Sheet1”更改为您要执行操作的工作表的名称。

这将删除C列和D列，并将其余列向左移动以填补空白。