VBA初心者です。

Visual Basic33閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:2021/12/4 20:12

その他の回答(1件)

1

ifのネストはどうでしょうか? Sub a() Dim i As Long For i = 1 To 3 Step 2 If Cells(1, i).Value <> "" Then '空白でなかったら if Cells(1, i).Offset(0, 1).Value = "△" then 三角の場合は何もしない それ以外は○ Else Cells(1, i).Offset(0, 1).Value = "○" '隣のセルに○を入れる End If Next i End if End if End Sub エディターを使っていないので違ったらすみません。

1人がナイス!しています

この返信は削除されました