从工作表中删除某些列

Question

我有一张主表，但是从这张表中我只需要显示某些列。手动完成需要很长时间，这个工作表是我在两周内必须做的事情。

任何人都可以建议使用VBA代码吗？

Answer 1

假设您需要删除第13,58和101列，然后执行以下操作：

Sub DeleteColumns()
    Columns(101).EntireColumn.Delete
    Columns(58).EntireColumn.Delete
    Columns(13).EntireColumn.Delete
End Sub

要保留原始列号，请确保将其从最高位置删除到最低位置。请注意，列从1开始编号（即“A”）。

如果您不想删除列，只是隐藏它们，请使用Hidden属性：

Sub HideColumns()
    Columns(13).EntireColumn.Hidden = True
    ' ... etc.
End Sub

Answer 2

你可以如下：

Sub ColumnsDelete()
   Range("A1, E1, AH1").EntireColumn.Delete
End Sub

Sub ColumnsHide()
   Range("A1, E1, AH1").EntireColumn.Hidden=True
End Sub

您只需键入列标题后跟任意行号（我选择＆＃34; 1＆＃34;为简单起见）