在VBA中将剪贴板内容读入数组

时间:2011-02-11 20:03:02

标签: excel vba

  Range("C" & CStr(j) & ":C" & CStr(k)).Select
  Range("C" & CStr(j) & ":C" & CStr(k)).Copy

我正在将列的内容读入剪贴板,我想遍历每个元素。

问题是如何循环使用它?

剪贴板的内容如下所示:

1234
21345234
1234512345
123452135
123451235
2345
或者我应该循环通过J和K?你能告诉我怎么做这件事谢谢

2 个答案:

答案 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”)