从循环中提取每个单元格的值，然后在另一个选项卡中打印

我有以下几点：

Sub loopCell() Dim cell As range For Each cell In range("p10:p200") Next cell End Sub 

我想提取我的循环迭代的每个单元格的值。 之后，我想要在另一个工作表中打印值并将这些值存储在一个variables/数组中。

Answer 1

为什么需要一个循环呢？

您可以直接复制/分配值。 看到这个例子

 '~~> Change `A1:A190` to the relevant range when you want the output... Sheets("Sheet2").Range("A1:A190").Value = Sheets("Sheet1").Range("P10:P1200").Value 

要么

 '~~> Change `A1` to the relevant range when you want the output... Sheets("Sheet1").Range("P10:P1200").Copy Sheets("Sheet2").Range("A1") 

编辑

根据用户的更新请求，他也想存储这些值。 在这种情况下，您可以将值存储到数组，然后从那里输出到相关表单

这是一个例子

 Dim MyAr As variant MyAr = Sheets("Sheet1").Range("P10:P1200").Value 

如果你想从数组中选定的值，然后遍历数组，然后输出到相关表。

 '~~> looping through the array For i = LBound(MyAr) To Ubound(MyAr) Debug.Print MyAr(i,1) Next i 

如果你想一次输出完整的数组到工作表，那么你也可以这样做

 Sheets("Sheet2").Range("A1").Resize(Ubound(MyAr),1).Value = MyAr