Excel VBA: 将选定行数值复制到 Sheet2 空行

以下是实现上述功能的 VBA 代码：

Sub copyToSheet2()
    Dim selectedRow As Integer
    Dim copyValue As Variant
    Dim lastRow As Long
    
    ' 获取选择的行号
    selectedRow = Selection.Row
    
    ' 获取复制的数值
    copyValue = Range('A' & selectedRow & ':Z' & selectedRow).Value
    
    ' 在 Sheet2 中寻找最靠前无数据的行
    lastRow = Worksheets('Sheet2').Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 将复制的数值粘贴到 Sheet2 中
    Worksheets('Sheet2').Range('A' & lastRow).Value = copyValue
End Sub

将以上代码复制到 VBA 编辑器中，然后在 Sheet1 中选择要复制的行，运行该宏即可将所选行的数值复制到 Sheet2 中最靠前的空行。