[已解决]如何删除指定字符所在的整列

baojun026

帮忙写下代码，谢谢！
有以下两种情况，分开的
1、第五行中有包含指定字符”序号“时删除所在的整列。
2、整个表格中有包含指定字符”序号“时删除所在的整列。
123.zip (7.58 KB, 下载次数: 5)

2021-11-3 20:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-4 11:48

baojun026 发表于 2021-11-4 08:12
您好！请问如果要删除指定字符的所在整列和后面一列应该怎么修改，谢谢！

Sub demo()
   Set Rng = [zz:zz]
   On Error Resume Next
   Set r = Cells.Find("序号")
   first = r.Address
   Do
      Set r = Cells.FindNext(r)
      Set Rng = Union(Rng, r.EntireColumn.resize(,2))
   Loop Until r.Address = first
   Rng.Select
End Sub

跳转到最佳答案楼层

lisongmei

所以B列删不删呢。。。

cutecpu

Sub demo()
   Set Rng = [zz:zz]
   On Error Resume Next
   Set r = Cells.Find("序号")
   first = r.Address
   Do
      Set r = Cells.FindNext(r)
      Set Rng = Union(Rng, r.EntireColumn)
   Loop Until r.Address = first
   Rng.Delete
End Sub


祝順心，南無阿彌陀佛！

baojun026

cutecpu 发表于 2021-11-3 21:24
Sub demo()
   Set Rng = [zz:zz]
   On Error Resume Next

您好！请问如果要删除指定字符的所在整列和后面一列应该怎么修改，谢谢！

cutecpu

baojun026 发表于 2021-11-4 08:12
您好！请问如果要删除指定字符的所在整列和后面一列应该怎么修改，谢谢！

Sub demo()
   Set Rng = [zz:zz]
   On Error Resume Next
   Set r = Cells.Find("序号")
   first = r.Address
   Do
      Set r = Cells.FindNext(r)
      Set Rng = Union(Rng, r.EntireColumn.resize(,2))
   Loop Until r.Address = first
   Rng.Select
End Sub

tiger56

这个是用的power query做的。需要至少2016以上版本的office才可以使用。