二次元配列のサイズについて
- 二次元配列のサイズについて質問があります。プログラム中で二次元配列を宣言する方法について知りたいです。
- また、プログラムでは文字列を一文字ずつに分解して別の列に転記する処理を行っています。
- 主な目的は、DNAの塩基配列を入力した際に相補鎖の塩基配列を作成したり、タンパク質に翻訳したりするためのコードです。
- ベストアンサー
二次元配列のサイズについて
下記のプログラムにおいて、 Public 文字列格納(,) as Variant とか、 Public 文字列格納(,3) as Variant のような、二次元配列を宣言はできないでしょうか? 下記のプログラムは、A1セルに書かれた文字列を、 一文字ずつに分解してB列に転記し、 逆さにしたものを、1文字ずつにC列に転記する プログラムです。A1セルに書かれる文字列の長さは不定です。 本当の目的は、NCBI等から取得したDNAの塩基配列を入力したら、 相補鎖の塩基配列を作成したり、タンパク質に翻訳したり、 乖離エネルギーを計算したりするためのコードで、その一部を 簡単化したものです。 ===プログラムのソース=== 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
- Kokorochaniuna
- お礼率96% (117/121)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
例えばこんなカンジで。 public s as string public a() as variant sub macro1() dim n as long, i as long, ss as string s = range("A1") n = len(s) redim a(n - 1, 1) for i = 1 To n ss = mid(s, i, 1) a(i - 1, 0) = ss a(n - i, 1) = ss next i range("B1").resize(n, 2).value = a end sub #参考 redim preserveして使いたいときは、サンプルマクロを redim a(1, n - 1) などのようにします VBEのヘルプでredimステートメントの説明と使用例をよく参考にしてください。
関連するQ&A
- 二次元配列のVBA
二次元配列のVBAの書き方がよくわからないのですが、 私が作ったサンプルプログラムのSub 二次元()において 二次元配列で表すにはどうすればいいのでしょうか? Sub 二次元()では 配列を格納する変数はtmpしか使っていませんが もう一つ配列を格納する用の変数を作ればいいのでしょうか? 数字とアルファベットは別々に取り出したいです。 ----------------------------------------------------- Sub 一次元() Dim myStr As String Dim tmp As Variant Dim i As Long For i = 1 To 5 myStr = myStr & "," & i Next myStr = Mid(myStr, 2) tmp = Split(myStr, ",") For i = LBound(tmp) To UBound(tmp) Debug.Print tmp(i) Next i End Sub Sub 二次元() Dim myStr As String Dim tmp As Variant Dim i As Long For i = 1 To 5 myStr = myStr & "," & i & "と" & Chr(64 + i) Next myStr = Mid(myStr, 2) tmp = Split(myStr, ",") For i = LBound(tmp) To UBound(tmp) Debug.Print tmp(i) Next i End Sub
- ベストアンサー
- Excel(エクセル)
- 配列格納時にスペース、セル内改行を無視したい。
ExcelVBAで、配列に文字列を一文字ずつ格納する方法について質問します。 以下の(1)の機能において改行や、全半角スペースは無視して格納したい のですが、方法が判りません。教えてください。よろしくお願いします。 下記のマクロは、 (1)A1セルに記載された文字列を,1文字ずつ配列aに格納し、 <現行では、a(n,0)には、左からn文字目、a(n,1)には右からn文字目の文字が格納される> (2)B列、C列に1それぞれの文字を順々に1文字ずつ順次転記し、 (3)B列の文字のうち”ー”を”~”に変更する マクロです。これの出力結果を、添付画像の赤枠内にようにしたいというのが、質問の内容です。 よろしくおねないします。 【マクロのソース】 Public a() As Variant Public s As String Sub Macro1() Dim n As Long, i As Long s = Range("A1") n = Len(s) Call submacro(n) Call submacro2(n) Call submacro3(n) End Sub Sub submacro(n As Long) Dim ss As String ReDim a(n - 1, 1) For i = 1 To n ss = Mid(s, i, 1) a(i - 1, 0) = ss a(n - i, 1) = ss Next i End Sub Sub submacro2(n As Long) Dim i As Long For i = 1 To n Cells(i, 2) = a(i - 1, 0) Cells(i, 3) = a(i - 1, 1) Next i End Sub Sub submacro3(n) Range("B1").Resize(n, 1).Select Selection.Replace What:="ー", Replacement:="~", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub 【関連質疑】 http://okwave.jp/qa/q7479718.html
- ベストアンサー
- その他MS Office製品
- VBA:日付を配列に入れ別セルに転記するとデータ型が変わる
データを別シートに転記するVBAコードを書いていて気付きました。 日付データをバリアント型の配列に入れて、再度書き出すと 21/2/2005 のように表示され、さらに日付ではなく、文字列になってしまいました。 具体的には下記のような内容です。Sheet1 の A1:A10 に 2005/2/21 のような日付が入力されています。 1. セル範囲のデータをバリアント型の配列に格納 2. 1.を別のセルへ一括転記を行う Sub TestMacro() Dim Buf As Variant With Sheets("Sheet1").Range("A1:A10") Buf = .Value '・・・(1) .Offset(0, 3) = Buf '・・・(2) End With End Sub ウォッチ式で変数を確認すると(1)および(2)の時点では #05/02/21# Variant/Date型 と正しく日付として扱われているようです。しかし、転記されたセルを見てみると、「文字列で 21/2/2005 」となっているのです。 2005/2/21 が返されるものと思うのですが、なぜ、このような現象が起こるのでしょうか?何かとんでもない勘違いをしているのでしょうか? テスト環境は Win98SE + EXCEL2002 です。よろしくお願いします。
- ベストアンサー
- Visual Basic
- セルに多次元配列の値を入力する方法
Dim A as Variant A = Range(Cells(1,1),Cells(10,2)) としてセルのデータを配列変数に格納した場合 Range(Cells(1,2),Cells(10,2)) を Range(Cells(1,3),Cells(10,3)) に入力するとき Aを用いて一発で入力する方法はないですか? 今は For i = 1 to 10 cells(i,3) = A(i,2) Next という方法しか思いつかないのですが時間がかかります。 良い方法があれば教えてください!
- ベストアンサー
- Visual Basic
- 配列に格納したデータを指定行以下に転記する方法
excel2000を使っています。 以下のコードだと最終行にデータが転記されます。これを4行目に確定して、転記したいのです。常に4行目つまりA列4行目以下に上書きしたいのです。 その場合コードをどのように変更すべきでしょうか? Sub 配列() With ActiveSheet ' 配列に格納 --------------------------- Dim i As Integer Dim LastRow As Long Dim SaleAry As Variant ' 配列に格納 --------------------------- SaleAry = Array(.Range("t4"), .Range("e5"), .Range("g5"), .Range("o5")) End With ' 転記 --------------------------- With Worksheets("daityou") LastRow = .Range("A65536").End(xlUp).Row For i = 0 To UBound(SaleAry) .Cells(LastRow + 1, i + 1).Value = SaleAry(i) ' Next i End With Set SaleAry = Nothing End Sub
- ベストアンサー
- オフィス系ソフト
- VBAの動的配列について
いつもお世話になっております。 エクセルVBAを学習中の者です。 動的配列についてお伺いします。 添付資料を見て頂きたいのですが、 シート名1~4に同一レイアウトの表があります。 これらの表をを2次元配列に格納し、その後、同一レイアウトのシートに一括転記したいと考えています。 転記の事を考えて、条件としては、 シート1から2行目以降のデータを配列『data』に格納、変数『dataCnt』が転記先の行番号と同じになるように考えています。 当初は、配列の定義を『Dim data(100,3) As Variant』と、多めに要素数を定義して、コードを記述していました。 正直、凄く気持ちが悪い感じでした・・・ 最近、動的配列を学習しまして、 シートごとにデータの行数を変数『lastRow』に格納して、配列を再定義して【データ数=要素数】とならないか? と思い、下記のようなコードを書いてみました。 が、『ReDim Preserve~』で実行エラーが発生してしまいます。 原因がなぜかわかりません! そもそも、動的配列はこのような使い方は出来ないのでしょうか? Sub テスト() Dim data() As Variant Dim x As Long Dim i As Long Dim ii As Long Dim lastRow As Long Dim dataCnt As Long dataCnt = 2 For x = 2 To 5 Worksheets(x).Activate lastRow = Cells(Rows.Count, 1).End(xlUp).Row If x = 2 Then ReDim data(2 To lastRow, 3) Else ReDim Preserve data(2 To dataCnt + lastRow - 1, 3) End If For i = 2 To lastRow For ii = 1 To 3 data(dataCnt, ii) = Cells(i, ii) Next ii dataCnt = dataCnt + 1 Next i Next x End Sub どなたかご指導をよろしくお願いいたします。
- 締切済み
- Excel(エクセル)
- 配列での文字列の連続処理
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じゃないといけないみたいなので、良い方法があればご教示いただけると幸いです。
- ベストアンサー
- Visual Basic
- 配列変数に格納したデータを計算する方法はありますか?
簡単な例ですが、例えばB列にあるデータの平均値を求めるときに以下のようにしています。 sub 平均計算() Dim X(1 To 1000, 1 To 1) As Variant, i as Integer For i = 10 To 1000 X(i, 1) = WorksheetFunction.Average _ (Range(Cells(i - 9, 2), Cells(i, 2))) Next Range(Cells(1, 1), Cells(1000, 1)) = X End Sub ここで処理速度改善のため、B列のデータを別の配列変数Yに格納してから平均値を求めるというようなことをしたいのですが、そんなことは可能でしょうか?イメージとしてはこんな感じです。 Y = Range(Cells(1, 2), Cells(1000, 2)) for i = 1 to 1000 X(i, 1) = WorksheetFunction.Average _ (Range(Y(i - 9, 2), Y(i, 2))) Next 当然これはエラーになってしまいますが、このようなことを可能にする方法があれば、どなたか教えてください!よろしくお願いします。
- 締切済み
- Visual Basic
- 二次元配列が、勝手に一次元配列になってしまう
Excelのマクロで、二次元配列を格納したバリアント型を戻り値とする関数を作ったのですが、… 二次元型配列のひとつの要素数が1の時、受け取ったバリアント型変数は、一次元配列になっています。 列ベクトルなら、それもありかな~と思うのですが、なんで、行ベクトルまで、一次元配列にするんだよ~って、困っています。 シートから関数を呼んだ場合は、列ベクトルは列ベクトル、行ベクトルは行ベクトルとして、表示されるので、マクロの中で関数を呼び出した場合も、行列の情報を保持できる方法があるんじゃないかと思ったのですが。 どなたか、ご教示頂けるとありがたいです。 よろしくお願いします。
- 締切済み
- Visual Basic
- 特定の文字列を除いた配列の作成マクロについて
頭書の件、現在マクロで以下のようなことを行おうとしており悩んでおります。 皆様のお知恵を拝借いたしたく、お願いいたします。 エクセルのSheet1に以下のような形でデータが格納されております。 A行:文字列、B行:数字でそれぞれ60000個程度のデータ格納されております。 この中から、特定の文字列を含んだ列を全て削除したデータを配列に格納するマクロを作成したいと考えています。 「特定の文字列」は、例えば"山田", "佐藤", "田中"の3種類とします。 もし上述の文字列のいずれかを含んだデータが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 a() As Variant Public s As String Sub macro1() Dim n As Long, i As Long s = Range("A1") n = Len(s) ReDim a(n - 1, 1) For i = 1 To n Call submacro(i, n) Next i Range("B1").Resize(n, 2).Value = a End Sub Sub submacro(i As Long, n As Long) Dim ss As String ss = Mid(s, i, 1) a(i - 1, 0) = ss a(n - i, 1) = ss End Sub