首页 文章

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

提问于
浏览 次
0

这是我的代码，但似乎有些不正确，只有第一行数据似乎在第二个工作表中弹出 . 有人可以帮忙吗？提前致谢！！

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

HII！编辑我以前的代码 .

我发现代码比我之前的代码更有效，

Sub CopyPastingColumns（）

昏暗的渴望

工作表（ “工作表Sheet1”） . 选择

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)

erow = ActiveSheet.Cells（1,1） . CurrentRegion.Rows.Count 1

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

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

End Sub

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

例如，两列都是数字，

在Sheet1中，列A具有123456，列B具有1

我希望Sheet2列C上的输出为1234561

请帮忙，谢谢！

excel vba excel-vba

1 回答

  • 0
    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
    回复于

相关问题