- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
120 ：デフォルトの名無しさん[sage]：2015/06/14(日) 13:34:47.08 ID:pyKjCLa1 - Function AnySplit(TargetRange As Range, Optional SplitStr As String = " ", Optional PutNum As Long = 1) As String
Dim Spstr() As String
Spstr = Split(TargetRange.Value, SplitStr)
AnySplit = Spstr(PutNum)
End Function
| - Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
122 ：デフォルトの名無しさん[sage]：2015/06/14(日) 13:53:29.18 ID:pyKjCLa1 - 修正ついでにこっちの方が面白いかな。
Function AnySplit(TargetRange As Range, Optional SplitStr As String = " ", Optional PutNum As Long = 1) As String
Dim str As String
Dim Spstr() As String
Dim c As Range
str = TargetRange(1).Value
If TargetRange.Count > 1 Then
For Each c In Range(TargetRange(2), TargetRange(TargetRange.Count))
str = str & SplitStr & c.Value
Next
End If
Spstr = Split(str, SplitStr)
AnySplit = Spstr(PutNum - 1)
End Function
|
|