Excel vba - xlDown

Question

Mã bên dưới đang cố gắng dán phạm vi đã chọn (được chuyển thành rng) vào cuối trang tính. Nó hoạt động nếu đã có 2 hàng (A1, A2).

Sub copyRow(rng As Range, ws As Worksheet) 
    Dim newRange As Range 
    Set newRange = ws.Range("A1").End(xlDown).Offset(1, 0) 
    rng.Copy 
    newRange.PasteSpecial (xlPasteAll) 
End Sub 

Vì vậy, nếu A1 và A2 có mặt và nếu bạn gọi phương thức này 100 lần, nó sẽ chèn 100 hàng sau hàng. Nhưng, nếu không có hàng nào hiện diện hoặc chỉ A1, nó chỉ ghi đè A2. Tôi có thể thấy excel viết trên cùng một hàng (ghi đè)

Xuất hiện, điều gì đó liên quan đến cách xlDown tính toán nếu có ít hơn 2 hàng, không chắc chắn.

Mọi trợ giúp sẽ được đánh giá cao.

Answer 1

Xin lỗi nhưng tôi không đồng ý với câu trả lời của Michael.

Kết thúc (xlDown) tương đương với VBA khi nhấp vào Ctrl + Down.

Hãy thử Ctrl + Down với

• một cột trống
• một cột với một giá trị trong dòng 1 nhưng không có
• giá trị khác trong hàng 1 và 2
• giá trị trong hàng 1, 2 , 3, 7, 8, 9, 13, 14 và 15

Điều này sẽ cho bạn ý tưởng về tất cả các hàng khác nhau, Ctrl + Down có thể đưa bạn đến.

Set newRange = ws.Range("A1").End(xlDown).End(xlDown).End(xlUp).Offset(1, 0) không nhất thiết đưa bạn đến hàng đã qua sử dụng cuối cùng cộng với 1.

Tôi ngạc nhiên Set newRange = ws.Range("A1").End(xlDown).Offset(1, 0) làm việc với một cột trống. Range("A1").End(xlDown) sẽ đưa bạn đến hàng cuối cùng của trang tính sau đó .Offset(1, 0) sẽ cố gắng đưa bạn ra khỏi trang tính.

xem xét:

Dim RowLast As Long 

RowLast = ws.Cells(Rows.Count, "A").End(xlUp).Row 

• Nếu cột A là trống rỗng, RowLast sẽ được thiết lập để 1.
• Nếu A1 có giá trị nhưng không có tế bào khác có giá trị, RowLast sẽ được thiết lập để 1.
• Nếu một số ô trong cột A có giá trị, RowLast sẽ được đặt thành hàng dưới cùng với một giá trị.
• Nếu bạn có một giá trị trong hàng cuối cùng, nó sẽ bị bỏ qua.
• Nếu bạn có một giá trị trong hai hàng cuối cùng, RowLast sẽ được đặt thành Rows.Count - 1.

Tôi giả sử bạn không có giá trị trong các hàng borrom. Nếu bạn không quan tâm nếu hàng 1 được để trống với một cột trống, thì:

RowLast = ws.Cells(Rows.Count, "A").End(xlUp).Row 
Set NewRange = ws.Cells(RowLast + 1, "A") 

nên cho kết quả mong muốn bất kể nội dung hiện tại của trang tính.

Nếu bạn quan tâm đến hàng 1 bị bỏ trống, hãy thử nghiệm với Ctrl + Down và Ctrl + Up sẽ cho bạn hiểu hiệu quả của các kết hợp giá trị khác nhau.

Answer 2

Vấn đề là hàng Bù đắp trỏ đến một hàng không nằm trong phạm vi. Nhưng không có Offset, bạn kết thúc vào hàng cuối cùng của giá trị. Vì vậy, thay vì cố gắng đi xuống từ đầu, chúng ta hãy đi lên từ phía dưới.

Go End (Xuống) hai lần: Sau khi kết thúc phạm vi này, Một lần nữa để thoát khỏi phạm vi này. Sau đó, hãy kết thúc (Lên) một lần và sau đó bù đắp điều đó theo 1:

Sub copyRow(rng As Range, ws As Worksheet) 
    Dim newRange As Range 
    Set newRange = ws.Range("A1").End(xlDown).End(xlDown).End(xlUp).Offset(1, 0) 
    rng.Copy 
    newRange.PasteSpecial (xlPasteAll) 
End Sub