ActiveCellから右に20個を配列に格納

質問

タイトルの通りなのですが、

ActiveCellが現在A1だとします。
そして、A2からA20を配列test1に格納したいです。

初心者の質問で恐縮なのですが、ご回答お願いいたします。

回答No.3

marbin · ベストアンサー

>A2からK2です。

でしたら、
Set r = ActiveCell.Offset(1).Resize(, 11)
となります。
なお、#2、#3で提示しましたコードには間違いがありました
失礼しました。
>.Reisze
↓
.Resize

回答No.2

marbin

>ActiveCellから右に20個を配列に格納

下に19個ではないですか？
>A2からA20を配列test1に格納したいです。

右の場合は
Set r = ActiveCell.Offset(,1).Reisze(,19)
となります。

補足

なんどもすみません。。。。
質問を間違えました。

A2からK2です。

本当にすみません。

回答No.1

marbin

Offset
Resize
をVBAヘルプで調べてみてください。

Dim r As Range
Set r = ActiveCell.Offset(1).Reisze(19)