隐藏无数据的列

njwtg

对当前活动工作表，判断A:AZ列，如果某列中没有数据，就隐藏该列
程序运行后的演示效果，见：数据表2“
谢谢老师！

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, r&, strJoin$
   
    With Range("A1", ActiveSheet.UsedRange)
        ar = .Value
        For j = 1 To UBound(ar, 2)
            strJoin = ""
            For i = 1 To UBound(ar)
                strJoin = strJoin & ar(i, j)
            Next i
            If Len(strJoin) = False Then
                .Columns(j).EntireColumn.Hidden = True
            End If
        Next j
    End With
    Beep
End Sub

gwjkkkkk

请参考。。。

njwtg

谢谢gwjkkkkk老师，ok

lizhipei78

lizhipei78

用我这个代码，速度杠杠的