エクセルのマクロで

質問

下記のような表があり
Q列　　　　／　R列
39580果物 1　／
39579野菜 10　／　★
39580果物 11　／
39581　　　　／
39580野菜 13　／　★
39578穀物 13　／
39585肉　 13　／　★
39580果物 11　／

Q列に数字のみのセル及び『肉』という言葉の入っているセルは空白のセルとし(削除)、Q列の該当セルを空白にした場合のみR列も空白セルにするなんてことできますか？

回答No.2

hotosys · ベストアンサー

こんなのでは？
Sub sample()
Dim r As Long
For r = 1 To Cells(Rows.Count, "Q").End(xlUp).Row
If IsNumeric(Cells(r, "Q")) Or (InStr(Cells(r, "Q"), "肉") > 0) Then
Cells(r, "Q").Resize(1, 2).ClearContents
End If
Next
End Sub

回答No.1

n-jun

Ｑ列のデータを順に取得して、

MsgBox IsNumeric("32156") & vbTab & IsNumeric("39580野菜 13")
MsgBox InStr("39580野菜 13", "肉") & vbTab & InStr("39585肉　 13", "肉")

を参考に条件分岐すればいけるのでは？