현재 활성 행을 한 워크 시트에서 다른 워크 시트로 복사하십시오.

Question

현재 활성 행을 한 워크 시트에서 다른 워크 시트로 복사하는 데 필요한 질문이 있습니다.Sheet1에있는 다음 열 이름, 주소, 도시, 전화, 우편 번호를 가지고 있으며 시트 2에서 유사한 컬럼이 있습니다. 현재 Row 100 또는 500 또는 500 또는 1000 시트 1의 이름 열에 대해 말하고 있습니다.이 행을 시트 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

명령 단추가 시트 1

에 배치됩니다.

이 코드를 사용해보십시오 :

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

.