該当セルのみを左にずらす方法を知りたいです

質問

添付画像のセルですが、●とその右隣のセルのみをBC列にずらしたいです。関数など方法はありますでしょうか？

例えば1列目だとF1とG1がそれぞれB1とC1にずれるイメージです。
それ以外の○とその右隣の列は消えても大丈夫です。

BC列、DE列、FG列、HI列がそれぞれ対になっています。

宜しくお願いします。

回答No.2

kkkkkm · ベストアンサー

マクロでしたら以下のような方法があります。
「●」は実際のセルに記載されている「●」をコピペしてください。

Sub Test()
Dim mRng As Range
Dim LastRow As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each mRng In Range("D1:D" & LastRow & ",F1:F" & LastRow & ",H1:H" & LastRow)
If mRng.Value = "●" Then
Cells(mRng.Row, "B").Resize(1, 2).Value = mRng.Resize(1, 2).Value
End If
Next

End Sub

お礼

ありがとうございます！実際に試して出来ました。

回答No.1

webuser

iif関数を〇の数だけ重ねればできます。
セルをずらすのではなく、セルの中身を関数を描いた位置に複写するのです。
朝のエリアをつぶすのではなく、空の列をBCに挿入して、そこに関数を書いた方が分かりやすいかもしれません。