メモ。
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([範囲])
これはくっそ便利