Range("C" & CStr(j) & ":C" & CStr(k)).Select
Range("C" & CStr(j) & ":C" & CStr(k)).Copy
我正在将列的内容读入剪贴板,我想遍历每个元素。
问题是如何循环使用它?
剪贴板的内容如下所示:
1234
21345234
1234512345
123452135
123451235
2345
或者我应该循环通过J和K?你能告诉我怎么做这件事谢谢
答案 0 :(得分:1)
您不需要使用剪贴板,而是:
Dim workingArray as Variant
workingArray = Range ("C" & CStr(j) & ":C" & CStr(k))
现在你可以通过workingArray工作了,注意它被视为一个二维数组。
答案 1 :(得分:1)
您可以遍历范围而无需任何奇怪的语法,如下所示:
Dim cel as Range
For Each cel in Range(Cells(j,3), Cells(k,3))
MsgBox cel.Value
Next cel
请注意,在这种情况下,“3”表示范围位于第三个列中(即“C”)