ＶＢＡ 飛び飛びのセルを選択するには

質問

Ｂ１からＢ５のセルの範囲のどこかに○という文字が
あるとします。もし、Ｂ２とＢ４に○があったらその隣の
Ａ２とＡ４のセルを選択してコピーしたいのです。

このような場合どのようなＶＢＡのコードを書けばいいのでしょうか？
お分かりの方よろしくお願いします。

回答No.2

zap35 · ベストアンサー

こんな感じでしょうか。VitaminBBさんなら「標準モジュール」に貼り付けることはご存じですよね。

Sub Macro2()
Dim r, trg As Range
Dim cnt As Integer
　For Each r In Range("B1:B5")
　　If r.Value = "○" Then
　　　If trg Is Nothing Then
　　　　Set trg = r.Offset(0, -1)
　　　Else
　　　　Set trg = Application.Union(trg, r.Offset(0, -1))
　　　End If
　　End If
　Next r
　If Not trg Is Nothing Then
　　trg.Select
　End If
End Sub

お礼

回答ありがとうございました。
ばっちりでした。

回答No.1

mohenjo

Sub trial()
Dim rngS As Range
For Each rngS In Range("B1:B5")
If rngS.Value = "〇" Then
　　　　　　　　rngS.Offset(, -1) = rngS.Value
End If
Next rngS

End Sub

お礼

回答ありがとうございます。
言葉足らずのところがあったので、補足しますと

○がある隣のAセルに○をコピーするのではなく、
○がある隣のセルである、A2とA４を同時に選んでコピー
したいのです。

A２に”あ”、A４に”う”と入力されていれば、”あ”　と　”う”を
同時に選んでコピーし、別のセルに”あ”と”う”を貼り付けたいのです。