[已解决]除指定区域空列

kandhong

老师：
   我请教的问题是：删除指定区域空列。
   思路如下：
   1.V4:XFD103为"数据区"。
   2."数据区"内有空列。
   想实现的效果是：自动将"数据区"的空列删除。    删除多余的空列.zip (9.08 KB, 下载次数: 3)

2021-8-15 10:56 上传

点击文件名下载附件
   

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-8-15 12:46

您好，不知道删除后的效果图长什么样呢

跳转到最佳答案楼层

cutecpu

您好，不知道删除后的效果图长什么样呢

kandhong

cutecpu 发表于 2021-8-15 12:46
您好，不知道删除后的效果图长什么样呢

cutecpu老师：          以下是空列删除前后的效果图。
1.删除空列前效果图。
2.删除空列后效果图。

cutecpu

kandhong 发表于 2021-8-15 16:39
cutecpu老师：          以下是空列删除前后的效果图。
1.删除空列前效果图。
2.删除空列后效果图。

Sub demo()
   col = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
   For i = col To 22 Step -1
      If Cells(4, i) = 0 Then Columns(i).Delete
   Next
End Sub

祝順心，南無阿彌陀佛！

kandhong

cutecpu 发表于 2021-8-15 17:46
Sub demo()
   col = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
   For i = col T ...

cutecpu老师：
非常感谢您一如既往的帮助。