[已解决]删除指定区域满格列

kandhong

老师：
   我请教的问题是：删除指定区域满格列。
   思路如下：
   1.V4:AB43为"数据区"。
   2."数据区"内有空格列（V列、X列、Z列、AA列、AB列）和满格列（W列、Y列）
   想实现的效果是：自动将"数据区"的满格列（W列、Y列）删除。    删除满格列.rar (11.94 KB, 下载次数: 2)

2022-9-20 20:10 上传

点击文件名下载附件
   

最佳答案

月排行榜 / 总排行榜

风林火山

2022-9-21 09:58

1. Sub 删除MGL()
   
2.     Dim rng As range
   
3.     For Each Rng In Range("v4:ab4")
   
4.         If Application.WorksheetFunction.CountA(Rng.EntireColumn) = 40 Then Rng.EntireColumn.Delete
   
5.     Next Rng
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

风林火山

1. Sub 删除MGL()
   
2.     Dim rng As range
   
3.     For Each Rng In Range("v4:ab4")
   
4.         If Application.WorksheetFunction.CountA(Rng.EntireColumn) = 40 Then Rng.EntireColumn.Delete
   
5.     Next Rng
   
6. End Sub
   

复制代码