|
本帖最后由 lovelfg 于 2017-2-18 17:55 编辑
自己已经解决
现有一个EXCEL表,有若干表头,表头内容如下:
a,b,c,d,a,c,b,a,c,e,f,a
现要将表头为”a“的这一列数据删除,如何用VBA实现?
我想到一种法是将数据转置一下,再筛选就可以,但是由于不想破坏原数据,所以此方法不通。由于单元格的写法range("A"&i)【i为变量】,此方法只适用于删除行,想用cells(1,i)来表示,但发现cells似乎没有column的属性,所以来请教一个各位大神,万分感谢
- Sub tt()
- Dim i%, Cols%
- Cols = Range("a1").End(xlToRight).Column
- For i = Cols To 1 Step -1
- If Cells(1, i) = "a" Then
- Columns(i).Select
- Selection.Delete shift:=xlToLeft
- End If
- Next
- End Sub
复制代码
|
|