隐藏选中行中没数据的列(选的行可能是不连续的)

liyuanluo

Sub 得到选中行的行号()
Dim cel As Range, d, arr
Set d = CreateObject("Scripting.Dictionary")
For Each cel In Selection
d(cel.Row) = ""
Next
arr = d.keys
MsgBox Join(arr, ",")
End Sub
以上是论坛里蓝老师写的，得到选中行的行号。

Sub 隐藏第3和5列没数据的列()
b = Cells.Find("*", , , , 2, 2).Column '所有行中有数据的最大列号
For i = 1 To b
If Cells(3, i) = "" And Cells(5, i) = "" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
End Sub
这是一个简单的隐藏第3和5行都空白列的代码

我实际要判定的不是第3行和第5行，而是当前选中的行，即蓝老师代码arr 中的行，也就是 Cells(arr (1,1), i) = "" And Cells(arr (1,2), i) = ""  And Cells(arr (1,3), i) = ""……………………
但语法不对，该怎么表达啊，谢谢了

liyuanluo

有没朋友帮下忙啊

liyuanluo

我的想法是:先接蓝老师的代码求得当前行号,再设两组循环,先循环For i=1to最大非空列号
再循环For j(j就是当前行号)对len(cells(i,j))字符长度求和.再判断.再执行隐藏.
现在不知道For j怎么设置，怎么让变量在蓝老师代码中的d.keys里循环

liyuanluo

   
[M1].Resize(1, 4) = arr
Dim c As Range
For Each c In Range("M1:P1")
For j = c(1) To c.Value
我先把arr的值写到单元格区域Range("M1:P1")
再用(Dim c As Range    For Each c In Range("M1:P1"))可以把单元个内的数据做为循环变量去执行
但这样很麻烦,可不可以只接把arr内的每个"值"做循环变量啊
网上找不到语法啊,大家指点下 谢谢

liyuanluo

For Each c In arr
   For j = c To c 就这样就可以了,想不到啊