VBA教えてください

質問

ＶＢＡ初心者です

やりたい事

Ｂ70セルから文字を探し
Ｂ70～Ｂ20セルに文字が入っている場合
文字が入っている一つ下のセルを選択しA1セルの文字を反映する

例、Ｂ50セルに文字が入っていたらＢ51セルにＡ1セルの文字を入れる
ということをしたいです

考えたコード
Sub test()

Dim a As Variant
Dim i As Long

For i = 70 To 20 Step -1

If Len(Cells(i, "B").Value) > 0 Then
Cells(i, "B").Offset(1, 0).Value = range("A1")

End If
next i
End Sub

このコードだと
Ｂ40セル文字有り
Ｂ41セルにＡ1セルの文字反映
Ｂ50セル文字有り
Ｂ51セルにＡ1セルの文字反映という風に
複数反映してしまいます

私が実現したいのは
Ｂ40セルに文字があろうが
Ｂ50セルに文字が有ればＢ51セルだけにＡ1セルの文字を反映させる
という形にしたいのです。(下から処理したい)

分かる人いればコードを書いてほしいです。
宜しくお願いします。
説明不足で有れば捕捉しますｍ(ーー)ｍ

回答No.1

SI299792 · ベストアンサー

単に
　　End IF
の前に
　　　　Exit For
をつけてループを抜ければいいです。

ループを使わない次の方法もあります
'
Sub Macro1()
'
　　Dim i As Long
'
　　i = [B70].End(xlUp).Row
'
　　If i > 20 Then
　　　　Cells(i + 1, "B") = [A1]
　　End If
'
End Sub

[]はrange の省略（但し、変数は使えない）
End(xlUp) はCtrl＋↓
Row は行位置です

お礼

ありがとうございます

色々と方法を教えて頂き助かりました！

回答No.2

tsubu-yuki

なんというか、とりあえず簡単な一例。

Sub sample()
　　For i = 70 To 20 Step -1
　　　　If InStr(Cells(i, 2), Cells(1, 1)) Then
　　　　　　'Cells(i, 2)にCells(1, 1)の文字（列）が含まれていたら
　　　　　　Cells(i + 1, 2) = Cells(1, 1)
　　　　　　Exit Sub　' 処理中止
　　　　End If
　　Next
End Sub

この後にも「別な」処理を続けるなら、
Exit SubではなくてExit Forの方が良いかも。