我有以下内容:
ffmpeg -i nd750_a0040.MOV -c copy -metadata:s:v:0 rotate=180 out.mkv
我想提取循环迭代的每个单元格的值。之后,我想在另一个工作表中打印值并将值存储在变量/数组中。
答案 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