VBA复制并粘贴到新工作表

下面的代码基本上是按照与Sheet2相同的顺序从Sheet1复制和粘贴到Sheet2。我需要它将值粘贴到Sheet2上的同一列中，以便对所有值进行排序。我似乎不知道如何让它将所有内容粘贴到Sheet2上的同一列。谢谢

子信息共享（）

---

End Sub

如果要翻转值，我认为不能使用“复制/粘贴”

不过，您可以只设置每个单元格的value属性。 您需要跟踪目标工作表A列中的当前行。

---

然后在正在处理的列的行中循环，并从源单元格的value属性设置value属性。

您的任务很容易完成，只需查看下面的内容：

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变量作为行号，逐个粘贴）

---

如果您需要更多信息，请在评论中询问。

您想将数据粘贴到哪里？您是否有EXACT位置？它可以移动到任何我希望粘贴到A1的位置，因此Sheet2中的所有值都在A列中。好吧……您的代码现在复制数据并粘贴到同一列中。因此我不知道您的问题是什么。它是c计算A列中的值，取决于有多少个值，它将数据从Sheet1范围（C3:N3）复制到第行（取决于第一次计数）到Sheet2。我需要将范围（C3:N3）中的所有值粘贴到Sheet2上的A列中。就像Sheet1（C3:C17）到Sheet2（A1:A15），然后Sheet1（D3:D17）到Sheet2（A16:A30）依此类推。所以我不能从Sheet1的C列复制值并粘贴到Sheet2的A列，然后从Sheet1的D列复制值并粘贴到Sheet2的A列末尾？如果你粘贴列，是的。如果你是在行中粘贴到列中，则不是。如果你使用转置，这是可能的。效果很好！谢谢你的帮助。好请把这篇文章标记为anwser。这可能会帮助其他人找到解决类似问题的方法。

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