質問: エクセル、マクロで「末尾を1文字削除」したいのですが またまた、お願いします。 エクセル初心者向けの入力支援としてマクロを使っています。 【やりたい事】 セルを選択しマクロを実行すると「該当セルの末尾1文字が削除される」というのは可能でしょうか? カーソルを入れてbsすれば済むだけの事ですが、諸般の事情で「セル選択+マクロ実行」の動作にしたいのです。 どなたかよろしくお願いします(ponta_024)
回答: こんな感じでしょうか。 sub deleteendletter() dim r as range for each r in application.selection if len(r.value) > 0 then r.value = left(r.value, len(r.value) - 1) end if next end sub