Tham khảo. . . . .
Thêm cách khác tham khảo:
Sub ABC()
Dim Rng As Range
Set Rng = Sheets("sheet1").Range("A1:B" & Sheets("sheet1").Range("B" & Rows.Count).End(3).Row)
Sheets("sheet2").Range("A:B").ClearContents
Rng.AutoFilter 1, "<>"
Rng.SpecialCells(12).Copy Sheets("Sheet2").Range("A1")
Sheets("sheet1").AutoFilterMode = False
End SubEm nhầm xíu. Đã sửa lại #3
Cảm ơn tiền bối đã góp ý. Nhưng em xin phép trao đổi thêm về ý tưởng (mong bác có góp ý để hiện thực hóa ý tưởng).
Cảm ơn tiền bối đã góp ý. Mong muốn của em là điều kiện theo cột A thôi bác ạ.
Thử code ngăn ngắn sau xem sao:
Sub CopyCellsNotBlank()
Dim Rng As Range
Set Rng = Sheets("sheet1").Range("A1:A" & Sheets("sheet1").Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants)
Sheets("sheet2").Range("A1:B50000").ClearContents
Rng.EntireRow.Copy Sheets("Sheet2").Range("A1")
End SubGiải pháp của bác code khá ngắn gọn ạ, nhưng cho cho em xin thêm chút ý kiến làm sao để copy các cột dữ liệu tùy chọn mà không phải copy hết cả dòng không ạ. Ví dụ em cần copy cột A, C,D,F nếu các dòng ở A khác rỗng đấy ạ.
Option Explicit
Sub test()
Dim lr&
Worksheets("Sheet2").Range("A:F").ClearContents
With Worksheets("Sheet1")
.AutoFilterMode = False
lr = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1:A" & lr).AutoFilter 1, "<>"
.Range("A1:F" & lr).SpecialCells(xlVisible).Copy Worksheets("Sheet2").Range("A1")
.AutoFilterMode = False
Application.CutCopyMode = False
End With
Union(Worksheets("Sheet2").Range("B1").EntireColumn, Worksheets("Sheet2").Range("E1").EntireColumn).Delete
End SubCảm ơn bác rất nhiều ạ.
Option Explicit
Sub Test()
Dim lr&, i&, j&, k&, kv, arr, arrb(1 To 65000, 1 To 6)
With Worksheets("Sheet2")
arr = Worksheets("Sheet1").Range("A1:G" & Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row).Value
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then kv = arr(i, 1)
If arr(i, 2) <> "" Then
k = k + 1
arrb(k, 1) = kv
For j = 2 To 5
arrb(k, j) = arr(i, j)
Next
arrb(k, 6) = arr(i, 7)
End If
Next
.Range("A1:G100000").ClearContents
.Range("A1").Resize(k, 6).Value = arrb
End With
End SubVì đây không phải là bài toán cố định mà em tự đặt ra yêu cầu để học tập và trong quá trình đặt ra câu hỏi thì phát sinh thêm ý tưởng ạ, mong bác thông cảm cho em ạ.
Cảm ơn bác đã chia sẻ ạ, em xin phản hồi bác như sau: em có biết về Advanced Filter, nhưng đây là vấn đề em tự đặt ra để tìm thêm các hướng giải quyết vấn đề nhằm mục đích học tập ạ, mong bác thông cảm.
Cảm ơn tiền bối rất nhiều ạ.
Cảm ơn tiền bối ạ
Không hểu lắm. Tiền giấy, tiền vàng, tiền thật, tiền giả, tiền xu, thậm chí tiền thối (nặng mùi?
) đều đã nghe rồi. Không biết tiền bối là tiền gì vậy bạn?Em không biết xưng hô sao cho phù hợp, bác bỏ qua nhé.Không hểu lắm. Tiền giấy, tiền vàng, tiền thật, tiền giả, tiền xu, thậm chí tiền thối (nặng mùi?
Không biết xưng hô sao phù hợp, vậy sao bạn dùng từ "bác" với tôi? Cũng y hệt bạn có thể dùng từ "bác" với họ mà.
Vâng, em đã điều chỉnh rồi đó bác.
Có thể người khác dễ dãi chứ tôi có nguyên tắc của mình, khó thông cảm chuyện này lắm.
Em cũng lờ mờ đoán ra vì thấy cứ lòi dần từng bài, để học thì tốt thôi nhưng theo kiểu này + với việc tuôn ra một rổ "tiền bối" nên sau bài #12 là em lót dép rồi.
Vâng, em sẽ lưu ý để trong tương lai đăng bài thể hiện nội dung phù hợp hơn với cộng đồng để chia sẻ kiến thức hiệu quả hơn. Vậy em xin sửa lại #1 nhé bác.
Mong bác chia sẻ thêm cho em tài liệu học về VBA để em có phương hướng tìm tòi, tránh những vụ "lòi dần từng bài" tạo nên sự không thoải mái trên cộng đồng ạ. Em cũng sẽ rút kinh nghiệm để trong tương lai đặt câu hỏi phù hợp hơn ạ.
