【Excel vba删除特定的最后几列】今天朋友问了我一个这样的问题,他要删除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.
推荐阅读
- Excel vba 锁定单元格的代码介绍
- Excel个人宏工作簿详细介绍
- Excel vba引用工作表的三种写法
- Excel使用VBA实现excel循环累加的代码
- Excel中VBA提取文件夹名称的方法
- Excel vba复制工作表实例
- Excel VBA中引用WorkSheet的新方法
- Excel vba注释符号和注释方法介绍
- Excel VBA实现文件自杀
- Excel vba实现字母全部转小写