メモ。
1, 「Alt + F11」を押してVBAエディタを開く。
2, 左側のプロジェクト一覧のところで右クリックし、そのメニューから「挿入(N)」→「標準モジュール(M)」を選択する。
3, あとは出てきたエディタに関数を記述してやれば、各シートから利用することが出来る。
concatenate関数を範囲指定で行えないかと考えていたらよさげな関数が落ちていたのでメモ。
Function CONCATENATERANGE(ParamArray Elements()) Dim c, ub As Long Dim t As String Dim rng, rngs As Range ub = UBound(Elements()) t = "" For c = 0 To ub Set rngs = Elements(c) For Each rng In rngs If Not IsEmpty(rng.Value) Then t = t & rng.Value End If Next Next c CONCATENATERANGE = t End Function
使用方法は下記の通り。
CONCATENATERANGE([範囲])
これはくっそ便利