Nhờ giúp đỡ về ẩn hàng trắng trong in ấn và định dạng cell theo giá trị tương ứng

[quanglam442]

Nhờ mọi người giúp đỡ, file mẫu đính kèm.

 

[langtuchungtinh360]

Nhờ mọi người giúp đỡ, file mẫu đính kèm.

thử code này nhé bạn

Sub Text()
Application.ScreenUpdating = False
Dim i As Long
i = ActiveSheet.UsedRange.Rows.Count
Dim Arr()
ReDim Arr(1 To i, 1 To 6)
Arr = ActiveSheet.Range(Cells(1, 1), Cells(i, 6)).Value
For i = 2 To UBound(Arr, 1)
    If Len(Arr(i, 3)) = 0 Or Len(Arr(i, 6)) = 0 Then
        Rows(i).EntireRow.Hidden = True
    Else
        Rows(i).EntireRow.Hidden = False
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[langtuchungtinh360]

còn định dạng cells thì nêu trường hợp đi rồi t xem, ok thì t giúp đc. theo như sheets KQ thì bạn chỉ cần ghi macro lại bước làm là chiều cao dòng đó sẽ tự fix được mà.

 

[quanglam442]

Cảm ơn bạn, đúng là mình đang cần tự fix chiều cao hàng.
Mình đang không biết một tý gì về code. để nghiên cứu đưa vào xem.
Rất cảm ơn!!!