隐藏两列都是空白的行

chatatk

请问 如何筛选隐藏掉2列都是空白的行  是隐藏不是删除

xd3210

Sub test()
    Dim r As Long, r1 As Long, r2 As Long
    Dim i As Long
    Dim arr
    r1 = Range("a65536").End(xlUp).Row
    r2 = Range("b65536").End(xlUp).Row
    If r1 >= r2 Then r = r
    arr = Range("a1").Resize(r, 2)
    For i = r To 2 Step -1
        If arr(i, 1) = "" And arr(i, 2) = "" Then
            Rows(i).Hidden = True
        End If
    Next
   
End Sub

xd3210

附件上传请测试

lsdongjh

1. Sub Test()
   
2.     Dim arr As Variant
   
3.     Dim lngRow As Long
   
4.     arr = Sheet1.UsedRange
   
5.     For lngRow = LBound(arr) To UBound(arr)
   
6.         If arr(lngRow, 1) & arr(lngRow, 2) = "" Then
   
7.             Sheet1.Rows(lngRow).Hidden = True
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

chatatk

xd3210 发表于 2019-1-21 13:42
附件上传请测试

arr = Range("a1").Resize(r, 2)  这个代码运行出错

chatatk

lsdongjh 发表于 2019-1-21 15:29

如何指定有名字的工作表？

xd3210

chatatk 发表于 2019-1-22 00:10
arr = Range("a1").Resize(r, 2)  这个代码运行出错

Sub test()
    Dim r As Long, r1 As Long, r2 As Long
    Dim i As Long
    Dim arr
    r1 = Range("a65536").End(xlUp).Row
    r2 = Range("b65536").End(xlUp).Row
    If r1 >= r2 Then
    r = r1
    else
    r=r2
   end
    arr = Range("a1").Resize(r, 2)
    For i = r To 2 Step -1
        If arr(i, 1) = "" And arr(i, 2) = "" Then
            Rows(i).Hidden = True
        End If
    Next
   
End Sub
其实是标的地方有误，请替换为此代码