|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
求助各位大神,想要隐藏没有数据的列怎么操作,就比如隐藏D、E、G列(有标题,但是标题下面的数据均为空白的列),写的代码一直出错,看不出为什么?
目前我的代码如下(标黄部分报错):
Sub yincanglie()
Dim rng As Range
rs = Cells(4, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 3), Cells(1, rs)).EntireColumn.Hidden = False
For i = 3 To rs
m = 0
m = Application.CountA(Range(Cells(1, i), Cells(53, i)))
If m = 0 Then
If rng Is Nothing Then
Set rng = Columns(i)
Else
Set rng = Union(rng, Columns(i))
End If
End If
Next i
rng.EntireColumn.Hidden = True
End Sub
|
|