VBA教えて下さい

質問

ＶＢＡ初心者です

やりたいこと
変数を宣言し
今開いているシート(activesheet)に
for nextを使用し
列5～20を調べ
行3～5を指定し
もし、5～20列の2行目のどれかに”No.８”という文字があれば(ここまでのコードは書けました)
その当てはまる列の3～5行を選択し(1)
更に、(1)の下2列を選択する(2)
そして、(1)と(2)を結合させる
といったコードが書きたいです

考えたコード
Sub test()

Dim i As Long
Dim j As Long

With ActiveSheet

For j = 5 To 20
For i = 3 To 5

If .Cells(j, 2) Like "*No.８*" Then
'ここからがわかりません

End If

Next i
Next j

End With
End Sub

変な書き方なので例えを書きます
Ａ1セルにNo.８の文字があれば
Ｅ1セルとＦ1セルを選択し
更に、Ｅ3セルとＦ3セルも選択し
Ｅ1セルとＦ3まとめてセルを結合といったことがしたいです。

質問頂ければ追記しますｍ(ーー)ｍ

おそらくoffsetを使用して選択すると思うのですが上手く出来ませんでした
回答お願い致します

回答No.2

ushi2015 · ベストアンサー

No1です。
ループで書くなら、
Sub test()
　　Dim i As Long
　　Dim j As Long
　　Application.DisplayAlerts = False
　　With ActiveSheet
　　　　For j = 5 To 20
　　　　　　If .Cells(2, j) Like "*No.８*" Then
　　　　　　　　'ここからがわかりません
　　　　　　　　.Cells(3, j).Resize(3).Merge　　'3～5行目
'　　　　　　　　.Cells(3, j).Resize(5).Merge　　'下2列というのは変。下2行なら3～7行目？
'　　　　　　　　.Cells(3, j).Resize(3, 2).Merge '右2列ならこれ？
　　　　　　End If
　　　　Next j
　　End With
　　Application.DisplayAlerts = True
End Sub
こんな感じ？
下2列というのは下2行？
としてもなんか変ですけど。
右2列、っていう事は無いですよね？

お礼

説明下手ですみませんm(__)m

下2行の間違いでしたm(__)m
回答者様のコードを少し変えてみたところ上手く実行出来ました！
足りなかったのはresizeでした！

とにかく回答者様のおかげで出来ました！
ありがとうございます！

回答No.1

ushi2015

こんにちは
例えと、その前の説明が全然合っていないのでは？
2行目を調べているはずなのに、Ａ1セルにNo.８？

その当てはまる列の3～5行を選択し(1)なのに、Ｅ1セルとＦ1セル？
更に、(1)の下2列を選択する(2)なのに、Ｅ3セルとＦ3セル？

また、単純にE1～F1、E3～F3 を別個には結合出来ますけど、一緒には結合出来ません。

書けているというコードも、For i = 3 To 5 のループは不要だと思います。

For j = 5 To 20のループも「No.８」が1セルしかないなら
Findを使った方がいいかも？