質問: excelvbaマクロで記号のみセルごと削除方法 excelvbaマクロについて確認させてください。 excelでa列から行方向に漢字、記号(環境依存文字も含む)のデータが1文字ずつ入力されてあり、漢字は削除しないで記号のみセルごと削除するプログラムを作りたいのですが、その方法はありますでしょうか。 [例] 科 削除しない (1) セルごと削除 加 削除しない ☆ セルごと削除
回答: こんばんは! 一例です。 sub sample1() dim i as long for i = cells(rows.count, "a").end(xlup).row to 1 step -1 if not cells(i, "a") like "[一-黑]" then cells(i, "a").delete shift:=xlup end if next i end sub こんな感じではどうでしょうか?m(_ _)m