●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ Part2● at TECH

106:デフォルトの名無しさん
07/06/08 17:49:21
>>105
それではこんな感じで
a:->:に変換
[a-z]:->:

エクセルにコピーして区切り文字を":"にすると
|01　　|01,02,03,04|　　 |
|01,02| 　　　　　　|01　|

Sheet2に
=CountData(Sheet1!A1)
=CountData(Sheet1!A2)
ドラッグして必要なとこまで埋める

関数
Function CountData(a As String)
sa = Split(a, ",")
b = UBound(sa)
If b < 0 Then
CountData = 0
Else
CountData = b + 1
End If
End Function

次ページ

続きを表示

1を表示