如何在Excel中使用VBA删除每三列中的两列

Question

如何使用VBA在给定范围内删除Excel中每三列的前两列？

然后，我希望能够编辑子项以删除4列中的前3列，每5列中的前4列，每6列中的前5个，依此类推。

Answer 1

我认为我可以尝试一下，还没有经过充分测试。您需要为此查看resize

Function delete_x_of_y(rngStart As Excel.Range, lngNumTotal As Long, lngNumDel As Long)

Dim rTemp As Excel.Range

Set rTemp = rngStart.Resize(, lngNumTotal - (lngNumTotal - lngNumDel)).EntireColumn

rTemp.Delete

End Function

因此delete_x_of_y(range("a1"),5,2)删除5列中的前2列