エクセル方眼紙から文字列を一発で連結抽出する関数 #神エクセル

何かと世間を騒がせている「神エクセル」、こんな記事も話題になっています。

データとして役立たない「神エクセル」問題に解決の兆し　河野太郎議員が文科省へ全廃を指示

こういった話題をうけて前回は、

入力しづらいくせに無駄なところでゴリゴリマクロを組んでるお役所のエクセル方眼紙。マクロも組める事務職の視点から直してみました。 | 【マクロ不要】プロの事務屋ならお役所の神エクセルをこう直す | エクセリューション https://t.co/upnjxH39XQ

— Morley (@morley_jp) November 12, 2016

といった記事を書きました。

これは神エクセルやエクセル方眼紙といって忌み嫌われている官公庁の申請書類について、申請者がデータ入力する段階から根本的に使いやすいようにしてみようという、フォーマット上で問題を解決するアプローチでした。

そのあとでふと思いついたんですが、

#神エクセルの問題はこれから入力時に解決していくとして、今すでに存在してしまっているエクセル方眼紙から文字列を簡単に連結して抜いてくる関数形式のマクロならすぐ書けそうだな。ユーザー定義関数として書いてみるか。需要あればだけどｗ

— Morley (@morley_jp) November 12, 2016

ということで、方眼紙のようなマス目に1文字ずつ入力されてしまっている文字列を簡単に結合するため、ワークシート上からもVBAコード上からも使える関数を書いてみました。
作るのも使うのも思いのほか簡単でしたので、ご紹介します。

とりあえず簡単なサンプルファイルも作成しましたので、興味ある方はダウンロードしてみてください。
職場のネット環境が厳しくてダウンロードできない方は作り方も書きますので大丈夫です。

＜指定範囲の文字列をすべて連結できる関数のサンプルファイルはこちらです＞
rconcatenate.xls

ではいってみましょう。

1 選択範囲のセルの文字列を全部一発でつなげる関数の使い方
- 1.1 どうしてCONCATENATE関数じゃダメなのか
2 RCONCATENATE関数の作り方
- 2.1 このプログラムをどこに貼り付ければいいか
3 今日のExcelスキルアップ

選択範囲のセルの文字列を全部一発でつなげる関数の使い方

サンプルファイルをダウンロードしていただいた方はもう開くだけでわかると思いますが、使い方は超簡単。

=RCONCATENATE(選択範囲)

エクセルにもともと入っているCONCATENATE関数ではなくて、今回作ったのはRCONCATENATE関数です。

どうしてCONCATENATE関数じゃダメなのか

エクセルのワークシート上で文字列を連結する方法は大きく分けて2通りあります。

「＆」記号を使って文字列を連結する方法
CONCATENATE関数を使って文字列を連結する方法

たくさんのセルの文字をつなげたい場合は「＆」記号よりもCONCATENATE関数を使ったほうが楽なのですが、この関数、セルの指定方法があまりイケてないのです。

=CONCATENATE(セル1,セル2,セル3,・・・・セル30)

という調子で、文字列をつなげたいセルをいちいち1つずつ別々に指定したあげく、なんと30個のセルまでしか指定できません。

なれている人はセルを選択する際にCtrlキーを押したままポチポチマウスをクリックしていくんでしょうけれども、それにしても使いづらい。

SUM関数みたいに一定のセル範囲をいっぺんに指定して文字列を連結できればいいのに

ということで、RCONCATENATE関数を作ってみました。
ちなみにRはセル範囲を表す「Range」の頭文字からとってみましたよ。

RCONCATENATE関数の作り方

「えっ！？エクセル関数って作れるの？」
という方もいらっしゃると思いますが、なれれば簡単に作れちゃいます。

いったいどんなプログラムを書いているのかというと、恐ろしく短いので驚かないでくださいね。

Function RCONCATENATE(myRange As Range) As String

    Dim c As Range
    
    For Each c In myRange
        RCONCATENATE = RCONCATENATE & c
    Next

End Function

Function RCONCATENATE(myRange As Range) As String

Dim c As Range

For Each c In myRange

RCONCATENATE = RCONCATENATE & c

End Function

なんと、たったの6行です。
このままだとわかりづらいかもしれませんので、緑色の文字のコメントを追加してみました。

'指定された範囲のセルの文字列をすべて連結する関数
Function RCONCATENATE(myRange As Range) As String

    'ループ用の変数を宣言（セルを格納できる型式）
    Dim c As Range
    
    '指定された範囲myRangeを1つずつループ
    For Each c In myRange
        '文字列を連結して積み重ねる
        RCONCATENATE = RCONCATENATE & c
    Next

End Function