Excel VBA-将特定列从一个工作表复制到另一个工作表

这是我的代码，但似乎有点不正确， 第二个工作表中似乎只弹出第一行数据。 有人能帮忙吗？提前谢谢

Sub copycolumns()
    Dim lastrow As Long, erow As Long
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastrow
        Sheet1.Cells(i, 3).Copy
        erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Sheet1.Paste Destination:=Worksheets(“Sheet2”).Cells(erow, 1)

        Sheet1.Cells(i, 4).Copy
        Sheet1.Paste Destination:=Worksheets(“Sheet2”).Cells(erow, 2)

        Sheet1.Cells(i, 6).Copy
        Sheet1.Paste Destination:=Worksheets(“Sheet2”).Cells(erow, 3)
    Next i

    Application.CutCopyMode = False
    Sheet2.Columns().AutoFit
End Sub

嗨！！编辑我以前的代码

我发现一个代码比我以前的代码更有效

子复制粘贴列（）

暗淡如长

工作表（“表1”）。选择

erow=ActiveSheet.Cells（1，1）.CurrentRegion.Rows.Count+1

    Worksheets("Sheet1").Select
    Worksheets("Sheet1").Range("D6").Select

    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Sheets("Sheet2").Cells(erow, 1)

    Worksheets("Sheet1").Select
    Worksheets("Sheet1").Range("I6").Select

    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Sheets("Sheet2").Cells(erow, 2)

erow=ActiveSheet.Cells（1，1）.CurrentRegion.Rows.Count+1

    Worksheets("Sheet1").Select
    Worksheets("Sheet1").Range("D6").Select

    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Sheets("Sheet2").Cells(erow, 1)

    Worksheets("Sheet1").Select
    Worksheets("Sheet1").Range("I6").Select

    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Sheets("Sheet2").Cells(erow, 2)

端接头 如何连接工作表1中的两行并将其粘贴到工作表2中的任何列中

例如，两列都是数字

在第1页中， A列有123456个，B列有1个

我想在第2页C列输出为1234561

---

请帮忙，谢谢

虽然这不是最佳实践，但我建议尝试

lastRow=Sheet1.UsedRange.Rows.Count

Hi！是否有方法将工作表1中的第3列和第4列连接起来并粘贴到工作表2的第5列？第3列和第4列都是数值。请帮帮我！你好是否有方法将工作表1中的第3列和第4列连接起来并粘贴到工作表2的第5列？第3列和第4列都是数值。请帮帮我！你好，先生！！非常感谢您的回复！！非常感谢。我已经编辑了我的问题，请看一下，如果可能的话给出解决方案。再次感谢！！！如果您有新代码，最好创建一个新问题。当然，创建了一个新问题，

Sub copycolumns()
    Dim lastrow As Long, erow As Long
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1

    For i = 2 To lastrow
        Sheet1.Cells(i, 3).Resize(1, 2).Copy Sheet2.Cells(erow, 1)
        Sheet1.Cells(i, 6).Copy Sheet2.Cells(erow, 3)
        'Edit: added line below
        Sheet2.Cells(erow, 5).Value = Sheet1.Cells(i, 3).Value & ", " & _
                                      Sheet1.Cells(i, 4).Value
        erow = erow + 1
    Next i

    Application.CutCopyMode = False
    Sheet2.Columns().AutoFit
End Sub