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