Excel vba删除特定的最后几列

网友投稿 495 2022-12-02

Excel vba删除特定的最后几列

今天朋友问了我一个这样的问题,他要删除100个工作簿的第一个工作表特定行的最后6列,

他问我有什么方法,他不想一个个打开一个个删,这样很费手。我想了下,在保证他每个工作簿所要的工作表正好都是第一个的前提下。我给他写了这样一段代码

Sub aa()

h = [dz1].End(xlToLeft).Column ‘判断最后一个非空的列

For i = h To h – 5 Step -1 ‘循环

Columns(i).Delete ‘满足条件行的删除

Excel vba删除特定的最后几列

Next

End Sub

我上面选dz1的原因是保证从一个较大的列标向左取,dz基本是快第100列。肯定是可以的。

这样的话,最后6列就被删除了。VBA的操作是不可逆的,所以操作前我们应该要先备份数据,这本身就是工作的良好习惯养成。100个工作簿就能很容易的搞定了。

这几段VBA代码,看似很简单的。但也要花些功夫去学习的。而且首先要先去熟练函数,然后才适合去涉及VBA.

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Excel个人宏工作簿详细介绍
下一篇:Excel vba 锁定单元格的代码介绍
相关文章