Sub Sub_HupChao()
Dim Sh As Worksheet
Dim Rws As Long
For Each Sh In ThisWorkbook.Worksheets
Rws = 9 + Sh.UsedRange.Rows.Count
MsgBox Range("D3:E" & Rws).Address, ,Sh.Name
MsgBox [J3].Resize(Rws).Address
MsgBox [L3].Resize(Rws).Address
Next Sh
End Sub
Chả biết học đâu có cặp dấu { }. Xóa đi thử xem
{ } là mảng. [ ] là evaluate. Code của thớt sẽ tạo ra mảng 1 dòng 1 cột.
Code ai đó viết cho thớt, dự bị là nhiều sheets (xem giải thích về mảng ở trên).
Tôi biết. Ý tôi là ai chỉ/ dạy/ làm mẫu cách này (GPE 10 năm nay không thấy).
Thử tham khảo xem sao.
Sub XoaDuLieu()
Dim sh As Worksheet, lr As Long, i As Long, arr
Set sh = ThisWorkbook.Sheets("Beginning")
arr = Array(4, 5, 10, 12)
lr = sh.Cells(Rows.Count, 4).End(xlUp).Row
With sh
For i = 0 To UBound(arr)
.Range(.Cells(3, arr(i)), .Cells(lr, arr(i))).ClearContents
Next i
End With
End SubGPE chỉ thích dùng [ ] như là viết tắt của Evaluate. Và thường chỉ dùng cho Range.
Option Explicit
Sub XoaIssue()
Dim Sh As Variant, lr As Long
Application.ScreenUpdating = False
For Each Sh In Worksheets(Array("Beginning"))
' Sheets(Sh).Select
lr = Sheets("Beginning").Cells(Rows.Count, 4).End(xlUp).Row
Sh.Range("D3:E" & lr + 1).Clear 'Contents
Sh.Range("J3" & lr + 1).Clear
Sh.Range("L3" & lr + 1).Clear
Next Sh
Application.ScreenUpdating = True
End SubThử xem điều gì sẽ xảy ra. Rồi sẽ hiểu vấn đề là như thế nào
Option Explicit
Sub XoaIssue()
Dim Sh As Variant, lr As Long
Application.ScreenUpdating = False
For Each Sh In Worksheets(Array("Beginning"))
' Sheets(Sh).Select
lr = Sheets("Beginning").Cells(Rows.Count, 4).End(xlUp).Row
Sh.Range("D3:D" & lr + 1).Clear 'Contents
Sh.Range("E3:E" & lr + 1).Clear 'Contents
Sh.Range("J3:J" & lr + 1).Clear
Sh.Range("L3:L" & lr + 1).Clear
Next Sh
Application.ScreenUpdating = True
End SubCâu gợi ý bài 12 không hợp lý. Gợi ý phải là "so sánh câu lệnh xóa cột J và cột L ở bài 11 so với bài 1 khác nhau cái gì".
Thấy bạn cũng biết chỉnh lại đoạn code thì nhờ các anh trên đây bàn thêm bàn để bạn hiểu trước, sau thì áp dụng chỉnh sửa sẽ hiểu thêm.
Dim WB As Workbook 'Định nghĩa biến WB
Dim WS As Worksheet 'Định nghĩa biến WS Set WB = ThisWorkbook For Each WS In WB.Worksheets
'Quét qua tất cả các sheet đang có.
Next Debug.Print WS.Name
WS.Range("A1:C10").Value = "Hello"
WS.Range("B1:B5").ClearContents sd.Range("A" & lrd + 1).Resize(r, 16) = md
sd.Range("A" & lrd + 1).Resize(r, 16).Borders.LineStyle = TrueA & Last row = "A" & lrd + 1 = "A" & 100 + 1 = "A101", đó là địa chỉ (1 ô) chứ còn gì nữa?
sd.Range("A" & lrd + 1).Resize(r, 16) = mdsd.Range("A" & lrd + 1).Resize(r, 16).selectSub XoaDuLieu()
Dim sh As Worksheet, lr As Long, i As Long, arr
Set sh = ThisWorkbook.Sheets("Beginning")
arr = Array(4, 5, 10, 12)
lr = sh.Cells(Rows.Count, 4).End(xlUp).Row
If Range("D4").Value <> "" Then 'them vào
With sh
For i = 0 To UBound(arr)
.Range(.Cells(3, arr(i)), .Cells(lr, arr(i))).ClearContents
Next i
End With
End If ' them vào
End Sub
Góp vui: Để đạt được ý bạn như trên có thể tham khảo code sau:
Sub XoaDuLieu()
Dim sh As Worksheet, lr As Long, i As Long, arr
Dim Rng as Range
Set sh = ThisWorkbook.Sheets("Beginning")
arr = Array(4, 5, 10, 12)
With sh
For i = 0 To UBound(arr)
lr = sh.Cells(Rows.Count, i).End(xlUp).Row ' tìm dong cuôi cua côt đinh xóa
If lr=4 then ' Kiêm tra xem cột định xóa có dư liêu không? nếu có thì gom lại
If Rng is nothing then
Set Rng =Range(.Cells(3, arr(i)), .Cells(lr, arr(i)))
else
Set Rng=Union(Rng, Range(.Cells(3, arr(i)), .Cells(lr, arr(i)))
end if
end if
Next i
End With
Rng .ClearContents
End Sub
