●EXCEL・VBA質問スレ Part2●at TECH●EXCEL・VBA質問スレ Part2● - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト102:デフォルトの名無しさん 07/06/08 13:03:14 頭固いなぁ 103:デフォルトの名無しさん 07/06/08 13:10:35 いや､そうでもないか 104:デフォルトの名無しさん 07/06/08 13:11:12 >>99 まずテキストのまま正規表現使って全ての数字を消すと AA a: b: ,,, c: AB a: , b: c: のようになる エクセルにコピーして区切り文字を":"にすると AA a| b|,,, c| | AB a|, b| c| | とセルが分かれ後は","の数を数えて+1する関数をVBAで 作ればOK 105:デフォルトの名無しさん 07/06/08 14:43:43 >>104 それじゃ最初から数字がない場合と 数字が一つだけでカンマなしの 区別つかなくね？ 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 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch