- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
127 ：デフォルトの名無しさん[sage]：2015/06/14(日) 21:47:43.34 ID:9sCLitNc - >>123
配列を1回しか使わないなら、いちいち変数に代入しなくても直接取り出せる
Function spr(ByRef 対象セル As Range, Optional 分割文字 As String = " ", Optional N番目 As Long = 1) As Variant
Application.Volatile
spr = Split(対象セル.Item(1).Text, 分割文字)(N番目 - 1)
End Function
|