かつぽんのIT @ ウィキ
文字列連結(範囲指定したセルの文字列を連結)
最終更新:
katsupon_it
-
view
文字列連結
A | B | C | D | |
1 | AAA | BBB | CCC | ↓ =関数(A1:A3)でこのように出力したい |
2 | 連結: | AAABBBCCC |
上のような少ないデータであれば、
=A1 & A2 & A3
とすれば良いですが、
データ数が多くなるとアンパサンド(&)で結びつけていくのは面倒です。
=A1 & A2 & A3
とすれば良いですが、
データ数が多くなるとアンパサンド(&)で結びつけていくのは面倒です。
関数でも
CONCATENATE
という関数があるのですが、
残念ながら、セルを一つずつ設定していかなくてはいけません。
CONCATENATE
という関数があるのですが、
残念ながら、セルを一つずつ設定していかなくてはいけません。
範囲指定で文字列を連結することができないので、
関数を自作する必要があります。
関数を自作する必要があります。
そこで下記のような関数を作ります。
- Function Concat(Area As Range)
- ' 列の始め
- StartCol = Area.Columns.Column
- ' 行の始め
- StartRow = Area.Rows.Row
- ' 列の終わり
- EndCol = Area.Columns.Count + StartCol - 1
- ' 行の終わり
- EndRow = Area.Rows.Count + StartRow - 1
-
- ' 列のループ
- For i = StartCol To EndCol
-
- ' 行のループ
- For j = StartRow To EndRow
-
- ' 範囲のセルを連結する
- Concat = Concat & Cells(j, i)
- Next
- Next
- End Function