エクセルのマクロについて

質問

エクセルでマクロを組んでいますが、ひとつだけ再現できず困っています。
A1からE100までの表で、A列からD列までの数値をE列で○と×で判定します。
この時、E列が○の場合にA,B,D列のデータをクリアしたいのです。
マクロのコードがわかれば助かります。よろしくお願いします。

回答No.5

tsubuyuki

ごく単純に。

Sub test()
Dim i As Long

　　For i = 1 To 100　　'１～１００の間、繰り返し
　　　　If Cells(i, 5).Value = "○" Then　'ｉ行５列目（Ｅ列）が"○"だったら）
　　　　　　Cells(i, 1).ClearContents　　'ｉ行１列目（Ａ列）をクリア
　　　　　　Cells(i, 2).ClearContents　　'ｉ行２列目（Ｂ列）をクリア
　　　　　　Cells(i, 4).ClearContents　　'ｉ行４列目（Ｄ列）をクリア
　　　　End If
　　Next i
End Sub

回答No.4

FEX2053

単純に

Range("E1").Select
For I=1 TO 100
IF Selection.Value="○" Then
With Selection
.Offset(0,-1).Clear
.Offset(0,-3).Clear
.Offset(0,-4).Clear
End With
Selection.Offset(1).Select
Next

こんな感じで、1個ずつチェックして消していけば済む話かと。

回答No.3

kybo

以下の様な感じかと思います。

Sub macro()
Dim C As Range
For Each C In Range("E1:E100")
If C.Value = "○" Then
C.Offset(, -4).Resize(, 4).ClearContents
End If
Next C
End Sub

回答No.2

mu2011

NO1です。
以下のコードを訂正します。

Range("A" & i & ",C" & i & ",D" & i).ClearContents
↓↓
Range("A" & i & ",B" & i & ",D" & i).ClearContents

回答No.1

mu2011

一例です。

Sub sample()
Dim i As Long
For i = 1 To 100
If Cells(i, "E") = "○" Then
Range("A" & i & ",C" & i & ",D" & i).ClearContents
End If
Next
End Sub