Excel VBA: 将Sheet1中选定行复制到Sheet2的A列

以下是一个使用VBA代码将Sheet1中选定行复制到Sheet2的A列的示例：

Sub CopyToSheet2()
    '获取选择的单元格所在的行
    Dim selectedRow As Integer
    selectedRow = Selection.Row
    
    '在Sheet2中找到最靠前无数据的行
    Dim lastRow As Integer
    lastRow = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    '将选择的行复制到Sheet2中的最靠前无数据的行
    Rows(selectedRow).Copy Destination:=Sheets("Sheet2").Range("A" & lastRow)
End Sub

在Sheet1中，选中要复制的行的任意单元格，然后运行上述代码即可。它将会把选中行的数据复制到Sheet2中最靠前无数据的行的A列。