エクセル2003　string型のデーターの所定文字数の数の取得

Question

いつもアドバイス頂きありがとうございます。
今回、質問させていただきたいのは、
string型でデーターを取得した文字列に対して
ある文字の文字数がいくつ在るかを取得したいのですが
VBA関数で、そのような関数はあるのでしょうか？

例
　myDataにstring型の文字列を取得してあります。
その中に「,」(カンマ）が何個存在するかと言う事
を取得したい。

やりたい事として、mydata()の中に2次元配列要素となるデーターを
1次元で仮格納してあり、それをセルに書き出すために2次元
に格納(splitで再格納)しなおしているのですが、データーが変わる
たびに、カンマの数を数えて配列宣言を記入するのが面倒なので、
カンマの数がいくつでも、2次元に再格納できるようにしたいためで
す。
宜しくお願いいたします。

Wendy02 · Accepted Answer

こんばんは。

>dim　mydata(20000, 10) as Variant
>と言う形等で、配列数を多く宣言しておけばいいのでしょうが、
>このやり方って空のデーターの箱を沢山作ってしまいっているので
>なんかもったいないなと思って動的配列で宣言しております。

私は、他の言語を勉強したときに、なぜ、VBAやVBでは、そういう仕方をしないのかなって思ったことがあります。たぶん、根本的に、VBAやVB は、速度が遅いのが原因ではないか、と思います。それに、Ubound で上限が取れないので、配列の代入時に、カウントして、それを元にする、というしかないわけです。

>Find関数を用いて、条件を満たした行の必要な列をカンマで結合して格納してく方法を用いてます。
似たようにことを、私も以前やったような覚えがあります。

動的な2次元配列が、VBAの上級文法の最後のひとつに入りますね。上級とはいっても、必要不可欠です。

Excelでは、有名な「バブルソート・アルゴリズム」をExcelシートに応用するという命題みたいなものがあります。一応、掲示板の常連さんは、みなさん、一度は勉強していると思います。（偉そうな言い方で申し訳ないのですが。）

とはいえ、なぜ、Excelにとって、2次元配列がややこしいかというと、お気づきだと思いますが、排出の仕方が、縦横逆になるからなのです。For Each ～ in myRange でやってみると、左から右へと動いていくのが分かりますが、配列は、添え字の1次側から順に排出てしていきます。ちょっと不思議ですよね。たぶん、これは、メモリの確保の仕方から来るものだと思います。

また、2次元の場合は、二次側を、動的配列にします。一次側は固定されます。

Redim Preserve myData(固定値, カウンター）

それから、

WorksheetFunction.Transpose　これは、1次元に限ります。ただ、こういうレベルというのは、このサンプルで見たとおり、そのままですから、

Worksheets("Sheet2").Range("A1"). _
　Resize(UBound(myData, 1) + 1, UBound(myData, 2) + 1).Value = myData()

で、形どおりに貼り付けが可能です。
-----------------------------------------------------------
先ほどからずっと、動的2次元配列のサンプルが思いつきませんので、#1さんの補足に書かれたものを元に書いてみました。一般的には、配列に配列を入れるようなことはしないで、そのまま、1行ずつ排出します。

なお、余計なことかもしれませんが、私個人は、
　Option Base 1
を使わないことにしています。将来的になくなるということもありますが、今回のコードの場合は、逆にややこしくなっているようです。配列は、0からスタートと考えていたほうが安全です。

ためしに、入れ替えてみました。以下のコードのように、Max で、上限を取らざるを得ません。それ以外に、列幅の上限を知る方法はありません。通常は、一行ずつ処理するというのが一般的です。ここまですると、ややこしいです。


'Option Explicit
Option Base 1
Sub ArrayTest()
　　Dim buf As Variant
　　Dim Max As Integer
　　Dim i As Long
　　Dim j As Long
　　Dim k As Long
　　Dim v As Variant
　　Dim myData(10)
　　Dim myAray() As Variant
　　Dim OutPutData() As Variant
　　
　　myData(1) = "あ,い,う,え,お"　'ここの列数は不明ゆえ
　　myData(2) = "か,き,く,け,こ"　'Max を取る
　　myData(3) = "さ,し,す,せ,そ"
　　myData(4) = "た,ち,つ,て,と"
　　
　　For i = 1 To UBound(myData)
　　If myData(i) = Empty Then Exit For
　　　　buf = Split(myData(i), ",")
　　　　ReDim Preserve myAray(1, i)　'動的2次元配列
　　　　'配列をチェックしないと、エラーが出る
　　　　If IsArray(buf) Then
　　　　If (UBound(buf) + 1) > Max Then Max = (UBound(buf) + 1)
　　　　End If
　　　　myAray(1, i) = buf
　　Next i
　　ReDim OutPutData(i - 1, Max)
　　For j = 1 To i - 1
　　　　For Each v In myAray(1, j)
　　　　　　k = k + 1
　　　　　　OutPutData(j, k) = v
　　　　Next v
　　　　k = 0
　　Next j
　　Range("A1").Resize(UBound(OutPutData(), 1), UBound(OutPutData(), 2)).Value _
　　 = OutPutData()
End Sub


何かのヒントになった幸いです。

hana-hana3 · Answer

Split()関数でデータを分割する事が可能ですよ。
Ubound()関数で配列の要素数を取得する事が出来ます。

Split関数で文字列を区切る 
http://officetanaka.net/excel/vba/tips/tips62.htm

Wendy02 · Answer

こんばんは。

言葉で説明されても、私は、あまり理解力がないせいか良く分からないですね。

私自身は、本来は、全体的なものを見て判断したいですね。

2次元配列と1次元配列を行き来するということは、通常はしません。モーグの有名な方は、そういうテクニックを公開していますが、まず、私は、そういうことには直面しません。

通常は、2次元は、最初から、2次元のまま処理するのが普通だと思います。
ただし、CSVなどは、1次元で行ごとに処理します。

String型で入手したものは、

Dim myStr As String
Dim i As Long
Dim j As Long

　myStr = "a,b,c,d,e"
　i = Len(myStr) - Len(Replace(myStr, ",", ""))
　j = UBound(Split(myStr, ","))


このどちらかになりますが、状況によっては、「i」側は、区切り文字が、TextCompare が選べる利点があります。なお、正規表現は、私は、この種類には使いません。理由は、遅いからです。

エクセル2003 string型のデーターの所定文字数の数の取得

Split()関数でデータを分割する事が可能ですよ。

この回答への補足

こんばんは。

こんばんは。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセル2003　string型のデーターの所定文字数の数の取得