Ít ra bạn phải nói cho mọi người biết những vùng ấy có đặc điểm gì... chứ vô chừng thì THÁNH cũng thua
Bạn không biết thì mọi người sẽ giúp, nhưng phải có cơ sở dử liệu chứ bạn
Thì vầy đi:
Sub Test()
With Sheets("L THANH")
Union(.[A6:W12], .[A14:G45], .[K14:K45], .[N14:W45]).ClearContents
End With
End SubThì thêm 1 vòng lập nữa vào
Sub Test()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
With Sh
Union(.[A6:W12], .[A14:G45], .[K14:K45], .[N14:W45]).ClearContents
End With
Next
End SubSub Test()
Sheets.Select
Union([A6:W12], [A14:G45], [K14:K45], [N14:W45]).Select
Selection.ClearContents
End SubKhác nhau là khác thế nào?
Đoạn code này:
Sub Test()
With Sheets("L THANH")
Union(.[A6:W12], .[A14:G45], .[K14:K45], .[N14:W45]).ClearContents
End With
End SubSub Test()
With Sheets("KSON")
Union(.[A6:J12], .[L6:Q12], .[A14:E45], .[I14:I45], .[L14:Q45]).ClearContents
End With
End Sub
Option Explicit
Sub DeleteRangesInSheets()
Dim Sh As Worksheet, dRng As Range
For Each Sh In Worksheets
Set dRng = InputBox("HAY CHON VUNG CAN XOA", Sh.Name, Type:=8)
If Not dRng Is Nothing Then dRng.Delete
Next Sh
End SubĐúng là CÓ
