Excel vba删除特定的最后几列
时间:2022-11-12 01:08:25
今天朋友问了我一个这样的问题,他要删除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函数
0
投稿
猜你喜欢
Word制作带有数据折线图的操作方法详细教学
2023-04-03 22:31:15
Win7系统无法运行Photoshop CS3(PS)解决方法
2022-09-10 22:38:31
Word怎么设置双面打印?word双面打印方法介绍
2022-05-21 12:28:18
upd.exe - upd是什么进程
2023-06-03 14:03:04
Win11安装失败的原因是什么?Win11安装失败解决方法
2023-08-31 20:00:17
Mac新手教程:Mac电脑如何设置默认启动磁盘?
2023-08-14 08:04:45
Windows Server 2003 R2关闭139端口
2022-02-17 14:12:39
KeyShot Pro 11入门:如何选择环境渲染图像
2022-02-17 07:35:20
wps怎么设计简历? wps制作简历的教程
2022-06-13 17:17:28
Windows10检查更新大概要多久?
2022-10-16 15:16:31
computer browser自动关闭的原因分析及解决方法
2022-12-12 12:56:14
steam令牌怎么解绑?win10系统解绑steam令牌的方法
2022-06-21 17:26:59
Win10 9879版无法安装KB3020114更新解决方案
2022-11-04 18:52:34
百度网盘地址怎么打开?百度网盘打开地址方法
2023-01-05 18:21:37
用演示动画快速调整WPS表格列宽和行高的两种方法
2022-04-15 10:20:07
Win10专业版打印机无法启动print spooler服务怎么修复?
2023-11-19 10:53:36
ppsspp模拟器金手指怎么用?ppsspp模拟器使用教程
2023-02-15 02:35:54
wps文字页眉横线的设置方法
2023-02-06 12:39:20
手机wps使用电脑字体的方法步骤
2022-11-05 05:54:07
教你极速一键重装系统使用教程
2022-05-31 01:52:17