Hoàn thiện code giãn dòng

[bebeen]

Em có ví dụ copy dữ liệu sang sheet khác. Em đang bí đoạn code làm giãn dòng tự động để dữ liệu hiển thị đầy trong ô. Em có gửi file đính kèm và nhờ mọi người hoàn thiện dùm em thêm nhé!
Cám ơn mọi người nhiều!

 

[giaiphap]

Em có ví dụ copy dữ liệu sang sheet khác. Em đang bí đoạn code làm giãn dòng tự động để dữ liệu hiển thị đầy trong ô. Em có gửi file đính kèm và nhờ mọi người hoàn thiện dùm em thêm nhé!
Cám ơn mọi người nhiều!

Bạn dùng đoạn code này cho sheet BC

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4:C1000]) Is Nothing Then
    Dim Rng As Range
    For Each Rng In Target
        Rng.WrapText = True
        Rows(Rng.Row & ":" & Rng.Row).EntireRow.AutoFit
    Next Rng
End If
End Sub