Excelvba删除特定的最后几列
发布网友
发布时间：2024-10-04 04:38
共1个回答
热心网友
时间：2024-10-09 11:03
今天朋友问了我一个这样的问题，他要删除100个工作簿的第一个工作表特定行的最后6列，
他问我有什么方法，他不想一个个打开一个个删，这样很费手。我想了下，在保证他每个工作簿所要的工作表正好都是第一个的前提下。我给他写了这样一段代码。
Sub aa()
h = [dz1].End(xlToLeft).Column ‘判断最后一个非空的列
For i = h To h – 5 Step -1 ‘循环
Columns(i).Delete ‘满足条件行的删除
Next
End Sub
我上面选dz1的原因是保证从一个较大的列标向左取，dz基本是快第100列。肯定是可以的。
这样的话，最后6列就被删除了。VBA的操作是不可逆的，所以操作前我们应该要先备份数据，这本身就是工作的良好习惯养成。100个工作簿就能很容易的搞定了。
这几段VBA代码，看似很简单的。但也要花些功夫去学习的。而且首先要先去熟练函数，然后才适合去涉及VBA.
