将当前活动行从一个工作表复制到另一个工作表

我有一个复制从一个工作表当前活动行到另一个问题。 说我有以下列名Sheet1中的名称，地址，城市，电话，邮政编码，我有工作表2中的类似的列。说我目前在工作表1名称栏100行或500或1000行。只将该行复制到工作表2并填充工作表2中的列。到目前为止，我有这个代码。 请让我知道如何继续。

Private Sub CommandButton1_Click() Dim CustomerName As String, Customeraddress As String, Customercity As String, Custtel As String, Custzip As String Worksheets("sheet1").Select CustomerName = Range("A2") Customeraddress = Range("B2") Customercity = Range("C2") Custtel = Range("D2") Custzip = Range("E2") Worksheets("sheet2").Select Worksheets("Sheet2").Range("B4").Select If Worksheets("Sheet2").Range("B4").Offset(1, 0) <> "" Then Worksheets("Sheet2").Range("B4").End(xlDown).Select End If ActiveCell.Offset(1, 0).Select ActiveCell.Value = CustomerName ActiveCell.Offset(0, 1).Select ActiveCell.Value = Customeraddress ActiveCell.Offset(0, 1).Select ActiveCell.Value = Customercity ActiveCell.Offset(0, 1).Select ActiveCell.Value = Custtel ActiveCell.Offset(0, 1).Select ActiveCell.Value = Custzip Worksheets("Sheet1").Select Worksheets("Sheet1").Range("C4").Select End Sub 

Answer 1

命令button被放置在Sheet1中

试试这个代码：

 Private Sub CommandButton1_Click() Dim lastrow As Long With ThisWorkbook.Worksheets("Sheet2") lastrow = Application.Max(4, .Cells(.Rows.Count, "B").End(xlUp).Row + 1) .Range("B" & lastrow).Resize(, 5).Value = _ Range("A" & ActiveCell.Row).Resize(, 5).Value End With End Sub