VBA 选择和复制忽略第一行

Question

我有一个代码需要一些帮助。我编写的这个脚本旨在将从第一行到最后一行的范围复制到另一张纸。如果包含数据的行数超过 2 行，它可以正常工作，但如果只有 1 行(第一行)，它会忽略该数据，不复制它，并输出错误。

您能确定有什么可以修复此代码吗？我无休止地寻找，没有任何结果。谢谢!

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet

Set ws1 = Worksheets("HCA")
Set ws2 = Worksheets("FormA")
Set ws3 = Worksheets("NamedRange")

ws3.Range("T1:U1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FormA").Select
ws2.Range("AQ7").PasteSpecial

Answer 1

当仅使用一行时，

End(xlDown) 将产生不良影响。使用工作表底部的 xlUp 更可靠

Sub test()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet

    Set ws1 = Worksheets("HCA")
    Set ws2 = Worksheets("FormA")
    Set ws3 = Worksheets("NamedRange")

    With ws3
        .Range(.Range("T1"), .Cells(.Rows.Count, "U").End(xlUp)).Copy
    End With
    ws2.Range("AQ7").PasteSpecial
End Sub