VBA 复制并粘贴到新工作表

Question

以下代码基本上按照在 Sheet2 中的相同顺序从 Sheet1 复制和粘贴到 Sheet2。我需要它将值粘贴到 Sheet2 上的同一列中，这样我就可以对所有值进行排序。我似乎无法弄清楚如何让它将所有内容粘贴到 Sheet2 上的同一列。谢谢。

子信息共享()

Dim lastrowDB As Long, lastrow As Long
Dim array1, array2, i As Integer

With Sheets("Sheet1")
    lastrowDB = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With

array1 = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
array2 = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")

For i = LBound(array1) To UBound(array1)
    With Sheets("Sheet1")
        lastrow = Application.Max(3, .Cells(.Rows.Count, array1(i)).End(xlUp).Row)
        .Range(.Cells(3, array1(i)), .Cells(lastrow, array1(i))).Copy
        Sheets("Sheet2").Range(array2(i) & lastrowDB).PasteSpecial xlPasteValues
    End With

Next
Application.CutCopyMode = False

结束子

Answer 1

你的任务很简单，看下面：

Dim i As Byte, y As Byte, x As Integer

For i = 3 To 5 'i is a number of column counts from left to right in Sheet1 to be copied

    For y = 3 To 17 'y is a number of row in Sheet1 to be copied

        x = x + 1 'x is a number of row in Sheet2 to be pasted

        Sheets("Sheet2").Cells(x, 1).Value = Sheets("Sheet1").Cells(y, i).Value

    Next y

Next i

我为您的应对问题制作了一个嵌套循环。它可以根据需要进行任意多列（调整 i 变量），通过所需行数（调整 y 变量）并将所有内容粘贴到 Sheet2 中的 A 列（一个一、使用a变量作为行号。

如果您需要更多内容，请随时在评论中提问。

Answer 2

如果你想翻转值，我认为你不能使用复制/粘贴

不过，您可以只设置每个单元格的 value 属性。 您需要跟踪目标工作表中 A 列中的当前行。 然后循环遍历您正在处理的列的行，并从源单元格的 value 属性中设置 value 属性。