配列での文字列の連続処理
- VBAで配列を使用して文字列の連続処理を行いたい場合、以下の手順を試してみることができます。
- まず、データを配列に読み込みます。
- 次に、配列をループして文字列の操作を行い、必要な部分を切り出してセルに書き込みます。
- ベストアンサー
配列での文字列の連続処理
ＶＢＡなので低レベルすぎてここで質問する内容ではないかもしれませんが Dim 元データ As Variant Dim 文字数 As Variant 元データ = Range("D1:D3087") For i = 1 To 3087 ’元データに格納されている文字列をこの間で操作したい 任意の文字を抜き取ってセルに貼り付ける 文字数 = Len(元データ) MsgBox 文字数 Next i 上記で 元データ に D1:D3087 の文字列を格納し文字列から必要な部分を抜き出しセルに書き込みたいのですが、エラーで止まります D1:D3087 の1行目は麻B060516-MSE300です。 文字列を操作できないのは元データがstringじゃないので無理っぽいかんじがするのですが配列に取り込むにはvariantじゃないといけないみたいなので、良い方法があればご教示いただけると幸いです。
- tomomaki168
- お礼率83% (88/105)
- Visual Basic
- 回答数3
- ありがとう数16
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
やりたいのはこういう事かな？ 文字数 = Len(元データ) ↓ 文字数 = Len(元データ(i, 1))
その他の回答 (2)
- yaritsusozai
- ベストアンサー率59% (50/84)
前半に、元データ = Range("D1:D3087")という記述があり、後半に、文字数 = Len(元データ)とあります。これを翻訳すると、D1～D3087の"範囲"の"文字数を"数えよ、というおかしな命令になります。これが、「型が合わない」というエラーになる原因です。 Lenを使う理由がよく解りませんが、Lenは、1個の文字列データが「何文字か」という事を数える関数で、「何個あるか」を数えるものではありません。 ですから、Len(たくさんのデータ)としても、Len(データの入ってる範囲)としてもエラーになります。 さて、具体的な解決策ですが、今回のように、セルD1～D3087という決まった範囲を参照する場合には、それをひとかたまりの「オブジェクト」として管理するのが定番です。 そして、そのオブジェクトからひとつずつデータを拾い上げて、加工なりなんなりするには、For Eachを使います。 取り出す１個１個のデータを、「個々のデータ(n)」と名付けるとすると、 Dim 元データ As Range Dim 個々のデータ(3087) As String Dim 番号 As Long Set 元データ = [D1:D3087] For Each i In 元データ 番号 = 番号 + 1 個々のデータ(番号) = i.value 'データの加工処理 Next i という感じのコードになります。
お礼
お忙しいところ本当にありがとうございます。 勉強になりました。 処理としては前回答者さんの方法で大丈夫でしたが 同じ処理でも色々な書き方があるんですね！！ ありがとうございました！！！
- mayoke
- ベストアンサー率25% (16/62)
一括でVariant型の配列に入れるんじゃなく、 一旦String型の配列にループで格納するといいんじゃないですか？ 3000行なら一瞬です。 また、上記は説明用の例なのかもしれませんが 上記例であれば、配列に入れるまでもないです。 単純にセル値のCOUNTをダイアログに出せばよさそうです。
お礼
お忙しいところ本当にありがとうございます。 元データからmidやright,leftで任意の文字列を取得したかったのです！！！
関連するQ&A
- 特定の文字列を除いた配列の作成マクロについて
頭書の件、現在マクロで以下のようなことを行おうとしており悩んでおります。 皆様のお知恵を拝借いたしたく、お願いいたします。 エクセルのSheet1に以下のような形でデータが格納されております。 A行：文字列、B行：数字でそれぞれ60000個程度のデータ格納されております。 この中から、特定の文字列を含んだ列を全て削除したデータを配列に格納するマクロを作成したいと考えています。 「特定の文字列」は、例えば"山田", "佐藤", "田中"の３種類とします。 もし上述の文字列のいずれかを含んだデータが30000個あれば、削除後の30000個程度のデータを新しい配列に格納したいと思っています。 イメージ的には以下のような操作がしたいのですが、「If C(i, 1) <> List Then」では通らないので、この部分に該当するような操作をなにかしらの方法で表現できましたらご教授いただけると助かります。 Sub test() Dim C As Variant Dim D As Variant Dim i As Long Dim j As Long Dim List As Variant List = Array("山田", "佐藤", "田中") C = Worksheets("Sheet1").Range("A1", "B6000") For i = 1 To 60000 If C(i, 1) <> List Then D(j,1)=C(i,1) D(j,2)=C(i,2) j=j+1 Else End If Next End Sub お手数をおかけいたしますが、宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- 二次元配列のサイズについて
下記のプログラムにおいて、 Public 文字列格納(,) as Variant とか、 Public 文字列格納(,3) as Variant のような、二次元配列を宣言はできないでしょうか？ 下記のプログラムは、A1セルに書かれた文字列を、 一文字ずつに分解してB列に転記し、 逆さにしたものを、１文字ずつにC列に転記する プログラムです。A1セルに書かれる文字列の長さは不定です。 本当の目的は、ＮＣＢＩ等から取得したＤＮＡの塩基配列を入力したら、 相補鎖の塩基配列を作成したり、タンパク質に翻訳したり、 乖離エネルギーを計算したりするためのコードで、その一部を 簡単化したものです。 ＝＝＝プログラムのソース＝＝＝ Public 文字列格納 As Variant Public 文字列(100, 2) As Variant Sub テスト() 文字列格納 = Cells(1, 1) 長さ = Len(文字列格納) For i = 1 To 長さ 文字列(i, 1) = Mid(文字列格納, i, 1) 文字列(i, 2) = Mid(文字列格納, 長さ - i + 1, 1) Cells(i, 2) = 文字列(i, 1) Cells(i, 3) = 文字列(i, 2) Next i End Sub
- ベストアンサー
- その他MS Office製品
- Excel 文字列を区切る VBA 質問
A列にスペース区切りのデータがあります これをC列 D列 に分けて表示したいのですが A列のデータが不規則（個数がバラバラ 空白もある） と、なった場合 なかなか上手くいきません C列以降は使用可能です（空いてます） その道の方 お助けたください 元のVBAは Sub Sample3() Dim i As Long, tmp As Variant For i = 2 To 22 tmp = Split(Cells(i, 1), " ") Cells(i, 2) = tmp(0) Cells(i, 3) = tmp(1) Next i End Sub です お手数ですが宜しく お願いします
- ベストアンサー
- Visual Basic
- VB6 文字列の処理
こんにちは 同じような文字列2組For分で処理についての質問です。 1組 名前 年齢 2組 名前 年齢 Dim OUT As Variant ''出力データ For i = 1 to 2 OUT = OUT + "名前" +"," OUT = OUT + "年齢" Next 2組目の名前と年齢の後ろ （学生）つけたい場合はどうしたらいいでしょうか。 よろしくお願いします。
- 締切済み
- Visual Basic
- 文字列を配列に…。
VBはまだ始めたばかりで本当に初歩的なことかもしれませんが分かる方がおられたら是非教えて下さい。 text1.textから取り込んだ文字列を”一文字ずつ”（Dim a(100) as stringで宣言した)配列に格納したいのですがどうしたらいいのでしょうか？？ ＜例＞text1.textに"abc"と入力しcommandbuttonを押すとa(0)に"a"がa(1)に"b"がa(2)に"c"が格納されるといったかんじです。 ちなみに今私がしたいのはtext1.textに、ある文字列を入れその文字列を文字コードに変換しそれを一文字分ずつ+1してまたそのコードを文字に直しtext2.textに出力するというものです（ようは簡単な暗号化ですね）。 私はAscとChrコマンドを利用して１文字ずつコードをずらしていこうと思っているのですが、他に良い方法などあるのでしょうか？？ 本当に初心者でどのようにしらたよいのか分かりません…。 どなたか分かりやすく教えていただけませんでしょうか？？ お願いします。
- ベストアンサー
- Visual Basic
- ＶＢＡ 文字列に関して
現在 Ａ２２のセルに入力された文字列をボタンを押せば ばらばらにしてＡ２２のセルから順番に入れるマクロを作りました （例）Ａ２２のセルに ”こんにちわ”の文字列が入っている場合 ボタン押下 ↓ Ａ２２のセル⇒こ Ｂ２２のセル⇒ん Ｃ２２のセル⇒に Ｄ２２のセル⇒ち Ｅ２２のセル⇒わ になる。 不思議なことに数字を16文字以上いれてボタンを押し文字を分離すると入力していない文字、数字が入ってしまいます。 数字だけこういう現象が発生してしまいます。 例えば "1111111111111111"と入力して文字を分離した場合 1.11111111111111E+15と個々のセルに格納されます。 原因がわかる方、教えて頂けないでしょうか？ 以下がコードです。宜しくお願い致します。 Private Sub CommandButton1_Click() Dim one As String Dim myString As String myString = Cells(22, 1) numString = Len(Cells(22, 1)) If Len(myString) <= 50 Then For i = 1 To Len(Range("A22").Value) one = String(1, myString) Cells(22, i) = one myString = Replace(myString, one, "", 1, 1, vbTextCompare) Next i End If End Sub
- ベストアンサー
- オフィス系ソフト
- VBA バイナリ―から文字列にする方法
この度はお世話になります。 現在、バイナリ―ファイル(xxxx.bin)をVBAで読み込み、バイナリ―データを文字列化して、エクセルで解析できるようなシートを作っています。 バイナリ―ファイルの中身が31 39 32 31 ・・・・・となっていたら、31393231・・・と文字列化にしたいです。 そこで、自分でプログラムを考えてみたのですが、バイナリ―が 01 などの場合、など“１”として読み込まれて、“0”が入らず、ずれてしまいます。 Sub 電文解析プログラム() Dim Deciphering_file As Variant '読み込みファイル Dim buf As Byte '1バイト格納 Dim fLen As Long 'ファイルサイズ Dim TEMP(1) As String ' Dim S_JIS As String '文字コード（2バイト） Dim str As String '文字列データ Dim i As Long Deciphering_file = Application.GetOpenFilename("BINファイル(*.bin),*.bin") fLen = FileLen(Deciphering_file) Open Deciphering_file For Binary As #1 For i = 1 To fLen Get #1, i, buf S_JIS = Hex(buf) If buf = 0 Then S_JIS = "00" End If TEMP(0) = Mid(S_JIS, 1, 1) TEMP(1) = Mid(S_JIS, 2, 1) str = myChr & TEMP(0) & TEMP(1) Next i End Sub ホントは3行くらいで済みそうな気がするんですが、あまりプログラミングをやったことありません。なので、すみませんがご教授お願いいたします。
- ベストアンサー
- Visual Basic
- 最終列の列番号を列文字に変換することはできますか？
例えばaaaがある列を探し、その列番号は４で列文字がDですが、 列番号から列文字をvbaで取得する方法はありますか？ Sub Sample() Dim i As Long Dim Colmoji As String i = Rows(1).Find(What:="aaa", LookAt:=xlWhole).Column Colmoji = i 'ここで列文字に変換したい MsgBox i & "の列文字は" & Colmoji & "です" End Sub このようなコードを作ってみたのですが列文字に変換する方法がわかりません。
- ベストアンサー
- オフィス系ソフト
- 配列の個数を数えたい
Dim ar As Variant ar = Split(moji, "/") '配列に格納 for i ＝ 0 to arの[配列の最大数] next [配列の最大数]の部分がわかりません。 たしか、「b」で始まって、「d」で終わり、中に「o」が入ってたような気がします、、、 （自信ないです） どなたかこれだけのヒントでわかる方いらしたら ご解答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA での文字列編集
すみません、VBA初心者であまり調べる時間がないので質問させて頂きます。 Dim strFileName As String Dim strChk1 As String Dim strChk2 As String strFileName には "20070703_TEST001_DATA.csv" の文字列のデータが 格納されているとします。 この strFileName を編集して strChk1 には "20070703" strChk2 には "TEST001" がセットされるようにしたいのですが。。。 どのようにプログラムを書くのが一番いいのでしょうか？ よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
お世話になりました！！！ お忙しいところ本当にありがとうございました！！！ これでmidやright,leftで文字列を取得できそうです！！！