使用循环从每个单元格中提取值并在另一个选项卡中打印

Question

我有以下内容：

ffmpeg -i nd750_a0040.MOV -c copy -metadata:s:v:0 rotate=180 out.mkv

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

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