Excel VBAで先頭の文字を削除する－Characters.Delete

動作検証バージョン：Windows版Excel（バージョン1809 ビルド10827.20181）

VBAのMid関数を使った、

VBA.Strings.Mid

［スポンサードリンク］

同じことを、Rangeオブジェクトの子オブジェクトである、CharactersオブジェクトのDeleteメソッドを使ってもできます。

先頭文字を削除するサンプルマクロ

以下のSubプロシージャで、A1:A5セルの先頭文字列を削除できます。

Sub セルの先頭1文字を削除する()
　Dim rng As Range
　For Each rng In Range("A1:A5")
　　rng.Characters(Start:=1, Length:=1).Delete
　Next
End Sub

Range.Charactersプロパティの、

Excel.Range.Characters

引数StartとLengthの両方に「1」を指定すると、セルの先頭1文字を表すCharactersオブジェクトを取得できます。

取得したCharactersオブジェクトのDeleteメソッドを実行して、

Excel.Characters.Delete

1文字目を削除しています。

Mid関数を使った方法よりも、オブジェクト指向なコードだと感じます。

Range.Charactersプロパティをご存知ない方向けに名前付き引数を使って、

rng.Characters(Start:=1, Length:=1).Delete

としていますが、標準引数を使った、

rng.Characters(1, 1).Delete

でも、それほど可読性は落ちないだろうと感じます。

ショートカットキー［Ctrl］＋［I］でヒントも表示されますし、

［Ctrl］＋［I］でRange.Charactersのヒントを表示している状態

コードの1行当たり文字数という観点では、

rng.Characters(1, 1).Delete

のほうが優れているとも感じます。

最終更新日時：2019-11-24 06:38

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「Charactersオブジェクト」の記事一覧