|
▼やよ さん:
横から失礼します。
Excel2000以降ならSplitを使ったユーザー定義関数を作れば
いけそうですが・・
見当違いだったスイマセン。
標準モジュールに下記のコードを。
A1セルに文字列があるとして
B1セルに =Split_No(A1," ",1)
C1セルに =Split_No(A1," ",2)
・・・
と入力してみてください。
複数セルには対応してません。
Function Split_No(セル As Range, 区切 As String, 番号 As Integer) As String
Dim buf() As String
Dim i As Integer
If セル.Cells.Count > 1 Then
Split_No = "複数セルはダメ"
Exit Function
End If
buf = Split(セル.Value, 区切)
'配列は0からの為、-1する
i = 番号 - 1
If UBound(buf) >= i Then
Split_No = buf(i)
Else
'番号が分割数を上回ったら""を返す
Split_No = ""
End If
Erase buf
End Function
|
|