VBA ẩn_hiện dòng rỗng theo điều kiện (empty cell) (1 người xem)

[MeThuongNho]

Dear Anh/Chị,
Em có file đính kèm , code Hide và Unhide : ẩn hiện các dòng 37-70. với điều kiện cột J="" là ẩn.
Cũng code này nhưng nếu sửa thành cột B thì không được.
Em không rành VBA, mọi người xem giúp em với.
Trân trọng!

 

[befaint]

CMD button:

Sub Cmd_Click()
    Application.ScreenUpdating = False
    Dim isChk As Boolean, Rng As Range
    isChk = (CMD.Caption = "Loc")
    Set Rng = ActiveSheet.Range("B1:B70")
    HiddenRows ActiveSheet, Rng, isChk
    CMD.Caption = Choose(-1 * isChk + 1, "Loc", "Không loc")
    Application.ScreenUpdating = True
 End Sub

Module:

Sub HiddenRows(ByVal ws As Worksheet, ByVal Rng As Range, ByVal isHidden As Boolean)
    Dim a(), b(), i As Long, j As Long
    If Rng.Rows.Count < 36 Then Exit Sub
    a = Rng.Value
    ReDim b(1 To UBound(a, 1))
    For i = 36 To UBound(a, 1)
        If Len(a(i, 1)) = 0 Then
            j = j + 1
            b(j) = i & ":" & i
        End If
    Next i
    If j > 0 Then
        ReDim Preserve b(1 To j)
        ws.Range(Join(b, ",")).EntireRow.Hidden = isHidden
    End If
End Sub

 

[MeThuongNho]

CMD button:

Sub Cmd_Click()
    Application.ScreenUpdating = False
    Dim isChk As Boolean, Rng As Range
    isChk = (CMD.Caption = "Loc")
    Set Rng = ActiveSheet.Range("B1:B70")
    HiddenRows ActiveSheet, Rng, isChk
    CMD.Caption = Choose(-1 * isChk + 1, "Loc", "Không loc")
    Application.ScreenUpdating = True
 End Sub

Module:

Sub HiddenRows(ByVal ws As Worksheet, ByVal Rng As Range, ByVal isHidden As Boolean)
    Dim a(), b(), i As Long, j As Long
    If Rng.Rows.Count < 36 Then Exit Sub
    a = Rng.Value
    ReDim b(1 To UBound(a, 1))
    For i = 36 To UBound(a, 1)
        If Len(a(i, 1)) = 0 Then
            j = j + 1
            b(j) = i & ":" & i
        End If
    Next i
    If j > 0 Then
        ReDim Preserve b(1 To j)
        ws.Range(Join(b, ",")).EntireRow.Hidden = isHidden
    End If
End Sub

Cám ơn befaint,
Mình test code nếu có gì mình post lại.
Thân!