将范围传递到数组并检索值

Question

我似乎有一个相当简单的问题让我感到悲伤。以下代码抛出'下标超出范围'错误。因此，我假设数组没有被填充？任何人都可以发现我做错的明显漏洞......？

Dim p() As Variant
p = Sheet4.Range("G20:G29")

Sheet4.Select
Range("R2") = p(0)

ps G20：G29包含字符串，没有空格

Answer 1

抓住它。弄清楚语法。忘了Variant数组是多维的

'First item
Range("R2") = p(1, 1)

'Second item
Range("R2") = p(2, 1)