同じ文字列を追加するExcelマクロ

対象：Excel2003, Excel2007, Excel2010

実務でExcelのデータを別のシステムに渡す場合には、いろいろな前処理が必要になります。

複数のセルの先頭に、同じ文字列を追加したいというのも、よく必要とされる処理の一つでしょう。

［スポンサードリンク］

私が最近扱っているExcelファイルでもそんな処理が必要となり、VBA（Visual Basic for Applications）でマクロを作ってみました。

▼選択したセルの先頭に文字列を追加するマクロ

Sub 先頭に文字列を追加する()

　Dim c As Range
　Dim str_add As String

　str_add = InputBox("先頭に追加したい文字列を入力してください。")
　If Len(str_add) = 0 Then Exit Sub

　For Each c In Selection
　　If Len(c.Value) > 0 Then c.Value = str_add & c.Text
　Next

End Sub

先頭に文字列を追加したいセルを選択しておいて上記のマクロを実行すると、追加したい文字列を指定するダイアログボックスが表示され
　InputBox("先頭に追加したい文字列を入力してください。")
その指定された文字列を変数
　str_add = InputBox("...
に格納します。

ダイアログで何も入力されなければ、マクロを終了します。
　If Len(str_add) = 0 Then Exit Sub

ダイアログで何か入力されていれば、選択されているセルをループで処理していきます。
　For Each c In Selection ... Next

もしセルの中に何らかのデータが入力されていれば
　Len(c.Value) > 0
先のダイアログで指定された文字列を先頭に付加していきます。
c.Value = str_add & c.Text

特に難しい部分はないマクロですが文字列を追加する
「c.Value = str_add & c.Text」の部分は
「c.Value = str_add & c.Value」と
する方もいらっしゃるかもしれません。

先頭に文字列を付加したい、元のセルに入力されているデータが単純な文字列ならばValueプロパティでいいのですが、例えば、日付や時間データの入力されたセルで、Valueプロパティを使うと、ユーザーが望まない結果となってしまうはずですので、私はTextプロパティを利用しています。

Valueプロパティを使ったときにどんな結果になるかは、Excelの日付や時間はシリアル値と呼ばれる数値だということをご存知の方ならば、すぐにわかるでしょう。

［スポンサードリンク］

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

『Excel VBAユーザーのためのPythonプログラミング入門』の元になった2020年に出した電子書籍です↓↓

Pythonの文字列フォーマットの基本を解説したキンドル本を書きました↓↓

Excel VBAから図形を操作する基本を解説したキンドル本です↓↓

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

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

珍しいPowerPoint VBA本は、オブジェクトブラウザーの使い方を解説した教本でもあります↓↓

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

Excel VBAユーザーを対象としたWord VBAの入門書です↓↓

数式の条件付き書式設定が苦手な方に向けたKindle本です↓↓

2年前(2021年12月)の
人気記事

「マクロのサンプル」の記事一覧