如何清除所有数据除了X,Y和Z列？

Question

我想清除所有(不删除)工作表中的内容除了列X,Y和Z(例如)？这些列存储在变量中.

Answer 1

是的,你清除了两个范围:

• 从第1列('A')到第23列('W')的第1号范围.
• 从第27列('AA')到最后使用的列的第2号范围.

这个功能做到了:

Public Sub CustomClear()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ws.Range(ws.Columns(1), ws.Columns(23)).Clear
    ws.Range(ws.Columns(27), ws.Columns(ws.UsedRange.End(xlToRight).Column)).Clear
End Sub