VBA Find、Resize、Rowの組み合わせ

Question

該当のソースコード

　　　　　　　　　　　　　　　　　　　　・
・
・
①　Findで特定のセルを見つけます
Dim SearchArea4x As Range
Set FoundCell4x = SearchArea4x.Find(What:=Yearmonth, _
LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
MatchByte:=False)

②　あるセルをコピーする
Sheets(j).Range("A1").Copy

③　①で見つけたセルの下の31行を範囲とする
Dim r As Range
r = FoundCell4x.Resize(31, 0)

④　③で指定した範囲で値の入っているセルの次の行のセルに②をPasteする
Cells(r.Row + r.Rows.Count, r.Column).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

発生している問題・エラーメッセージ

③　 r = FoundCell4x.Resize(31, 0)
でエラーが発生します
変数をResize出来るものなんでしょうか？？
ご教授お願いいたします。

Answer 1

Resize の引数に0は指定できない。0行とか0列という指定はおかしいですよね。
Rangeのようなオブジェクト変数に代入するにはSetが必要。

ということで下記でエラーはなくなるでしょう。

Dim r As Range
Set r = FoundCell4x.Resize(31, 1)

Comments

[GytaAmies]

回答ありがとうございます。
Setはそういう意味があったんですね。
勉強になりますm(__)m

[GytaAmies]

Cells(r.Row + r.Rows.Count, r.Column).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

このコマンドだと、意図する動きはしませんでした。
ちょっと、また頑張ってみます。

[hatena19]

提示のコードは抜粋なので、全体像が分かりませんので、とりあえずは、できるところまで頑張って、うまくいかない場合は新規に質問をたてなおした方がいいと思います。

[GytaAmies]

ありがとうございます。

Answer 2

Set r = FoundCell4x.Resize(31, 0) Set r = FoundCell4x.Resize(31, 1)

ただ、

④　③で指定した範囲で値の入っているセルの次の行のセルに②をPasteする

の意味がつかめませんでした。

Comments

[GytaAmies]

ありがとうございます。
4は
例えば、B1に何かしらの値がはいっています。
その下のB2に2をペーストしたいです。

B1の決め方は、1でFindしたセルを起点に下に移動して、値が入っている一番下のセルです。
つまり、Findしたセルから見て、下に移動して空白のセルに値を入れたいです。

[GytaAmies]

Cells(r.Row + r.Rows.Count, r.Column).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

このコマンドだと、意図する動きにはなりませんでした。
ちょっと、また頑張ってみます。

[jinoji]

FoundCell4x.Resize(31).SpecialCells(xlCellTypeBlanks).Cells(1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False