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

时间:2016-08-17 10:11:08

标签: excel vba excel-vba

我有以下内容:

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

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

1 个答案:

答案 0 :(得分:2)

为什么需要循环呢?

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

'~~> 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