比如表头(A行)单元格对应张三,李四,王五,钱六,赵九……
实际只需保留张三、王五、钱六。
打算声明一个数组[张三、王五、钱六],然后如果不在数组里面,就把对应的列删除掉。
用VBA代码如何删除了?

VBA:找出不在数组内的元素,删除对应的列
- 写回答
- 好问题 0 提建议
- 关注问题
- 邀请回答
-
2条回答 默认 最新
关注
Sub test() Dim arr Dim i, j As Integer Dim flag As Boolean arr = Array("张三", "王五", "钱六") flag = True i = 1 Do While Cells(1, i) <> "" For j = 0 To UBound(arr) If Cells(1, i) = arr(j) Then flag = False Exit For End If Next j If flag Then Columns(i).Delete i = i - 1 End If flag = True i = i + 1 Loop End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用