- ベストアンサー
VBAでエクセルの複数の表を同じ配列に格納する方法
- VBAを使用して、エクセルの複数の表を同じ配列に格納する方法を教えてください。
- エクセルの複数の表を同じ配列に格納する方法について、VBA初心者の私にもわかりやすく教えてください。
- VBAを使って、エクセル上の複数の表を同じ配列に格納する方法について詳しく教えてください。
- chacoloco
- お礼率80% (92/114)
- Visual Basic
- 回答数4
- ありがとう数4
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- imogasi
- ベストアンサー率27% (4737/17068)
初心者ということなので、たぶん配列に入れるという発想が適当でないと思うよ。 いままでエクセルのシートのデータを２次元配列に納めようという、解説例・使用例を見たことがない。 それが（ひょっとして）適当であるかもしれないが、その後何をしたいのかをあわせて考え無いと、質問としてはおかしいであろう。 初心者の思いついた路線で、それを実現するには式の、質問するものが結構多いが、その発想そのものの妥当性（ベターかどうか）をやりたい内容をはっきりと、終わり（その先したいこと）まで書いて別に質問したらどうかな。 ーー 質問表現が普通と違う点 ＞同一シート上にある3つの表を 同一列にあるデータは１つの表だというのか。それなら質問に注記すること。 同一行に、３列データがデータとして存在する関連性はないのか。 たまたま１万データをA列に、他のデータをCエ列の１万行に入力しただけか？ こういう使い方はあまりしない（そういうことをあまり知らないのかもしれないが）。だから注記するものだ。 ーー エクセルの http://www.excel-vba.net/excel-array-002.html のようにあるが Sub test02() Dim StrArray(1, 2) As String StrArray(0, 0) = "A0" StrArray(0, 1) = "B0" StrArray(0, 2) = "C0" StrArray(1, 0) = "A1" StrArray(1, 1) = "B1" StrArray(1, 2) = "C1" Range("a1:C2") = StrArray End Sub や Sub test04() Dim VarArray As Variant VarArray = Range("a1").CurrentRegion.Value MsgBox VarArray(2, 3) MsgBox VarArray(1, 3) End Sub はできても 空白列を縮約して代入などできるはずがない。 多分配列に入ると、メモリ内処理なので、配列を再構成する（要素数分繰り返し）をして空白列対応要素を除くのも、大変な時間がかかるということはないだろう。
お礼
ご返答ありがとうございます。 質問にいろいろと不備がありましたようで失礼致しました。 素人ゆえ、ご容赦くださいますと幸いです。
- n-jun
- ベストアンサー率33% (959/2873)
データを別のシートに隙間なく並べて配列に取込み、 使った別シートを削除するって言う方法もあるかも。
お礼
ご返答ありがとうございます。 そうですよね、そちらが一番シンプルですよね。 ありがとうございます。
- MasMo
- ベストアンサー率45% (5/11)
私でしたら、B列D列を削除してから一括読み込みをして、その後に列を挿入して元に戻します。
お礼
ご返答ありがとうございます。 他の列をできればいじりたくなかった関係でその部分だけ配列に入れられないかな、と思っていました。 こちらの方法も有効ですね。 ありがとうございます。
関連するQ&A
- VBAで配列のある部分だけをを配列に入れたい
VBAを勉強をしております。 例えばA1からG20までをある配列に入れているとします。 その配列のある部分（例えばB1からC20）を、別の配列にいれるにはどうすれば良いのでしょうか。 以下の方法で試してみましたが、上手くいきません。 Dim A() As Variant Dim B() As Variant A = Range("A1:G20") B = Range(Cells(A(1,2),Cells(A(20,3)))
- 締切済み
- Excel（エクセル）
- ＶＢＡの配列の格納について
エクセルのＶＢＡで、セルのデータを配列に格納するスピードを向上したいと思います。 例えば、A1～A10000のセルにデータを書き出す場合、 For 行番号 = 1 To 10000 Cells(行番号, 1).Value = 1 Next よりも、一旦、配列に書き込んだ後、一気にセルに書き込んだ方法が早いのですが、 For 行番号 = 1 To 10000 HAIRETU(行番号, 1) = 1 Next Range("A1:A10000").Value = HAIRETU() 今度は、A1～A10000に書き込んだデータを、再度、配列に格納する場合、 For 行番号 = 1 To 10000 HAIRETU(行番号, 1) = Cells(行番号, 1).Value Next とすると時間がかかるので、 HAIRETU() = Range("A1:A10000").Value というような処理をしたいのですが、うまくいきません。 よい方法がありましたら、ご教授ください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA 配列の分割について
Excel VBAでコーディングしていますが 行き詰っているのでお助け下さい。 (1)二次元配列に格納されている値の中から 特定の値が格納されている位置をループを使わず 取得したいのですがその方法が分かりません。 <例> Dim x(2,2) As Valiant x(0,0) = "あああ" x(0,1) = "いいい" x(0,2) = "ううう" x(1,1) = "えええ" ・ ・ ・ この配列から"えええ"が格納されている位置をループを使わず 取得する方法を教えてください。 ⇒ 1, 1 (2)二次元配列の指定した列（？）を一次元配列に 格納する方法も重ねて教えてください。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 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（エクセル）
- 配列に格納したデータを指定行以下に転記する方法
excel2000を使っています。 以下のコードだと最終行にデータが転記されます。これを４行目に確定して、転記したいのです。常に４行目つまりＡ列４行目以下に上書きしたいのです。 その場合コードをどのように変更すべきでしょうか？ Sub 配列() With ActiveSheet ' 配列に格納 --------------------------- Dim i As Integer Dim LastRow As Long Dim SaleAry As Variant ' 配列に格納 --------------------------- SaleAry = Array(.Range("t4"), .Range("e5"), .Range("ｇ5"), .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にて、配列の範囲を指定して別の配列にコピーしたいと思っています。 現在は以下のようにFor文を使用して1つ1つ代入しているのですが、 もっと効率の良い方法はありますか？ 処理速度を重視しています。 Dim srcArray As Variant: srcArray = Range("A1:A100") ' コピー元の配列 Dim dstArray As Variant ' コピー先の配列 Dim startIndex As Integer ' コピーする範囲の開始インデックス Dim endIndex As Integer ' コピーする範囲の終了インデックス startIndex = 6 endIndex = 16 ReDim dstArray(endIndex - startIndex) For si = startIndex To endIndex dstArray(si - startIndex) = srcArray(si, 1) Next si
- 締切済み
- その他（プログラミング・開発）
- Excel VBA配列をFunctionに渡す
こんばんは、引数について教えてください。 Excel VBAの関数を作っていましたが、 1.Function ColumnArrayの部分でコンパイルエラーが発生し、 「配列がありません」と表示されます。 引数を配列のみで渡した場合、問題なく渡せるようですが、 他の引数と、CriteriaArrsの配列と一緒に渡せないのでしょうか。 すべて配列として１つにまとめて渡さなければならないのでしょうか。 2.CriteriaArrs = Array("田中", "鈴木")の部分は、文字列の増減が発生しますので 配列はParamArray CriteriaArrs()とした方がよいのでしょうか 説明が不足している点があるかもしれませんが宜しくお願いいたします。 Function ColumnArray(SheetName As Worksheet, _ StartCell As Range, _ FieldColumn As Long, _ CountColumn As Long, _ CriteriaArrs As Variant _ ) As Long ・・・ End Function ------------------------------------- sub test() Dim CriteriaArrs() As Variant Dim SheetA As WorkSheet DIm RangeA range CriteriaArrs = Array("田中", "鈴木") set SheetA =Worksheet(1) set RangeA=Range("B3") FilterCount = ColumnArray(SheetA, RangeA, 3, 2, CriteriaArrs) end sub
- 締切済み
- Excel（エクセル）
- 以下のデータがあり、これをExcel VBAの連想配列として格納したい
以下のデータがあり、これをExcel VBAの連想配列として格納したいと考えています。 MsgBoxでキーとアイテムを表示させると表示されるのですが、 最後に一例としてExistsで確認するとFalseが返ってきます。 これは配列に格納されていないのでしょうか。 また格納されていないとすると、どうすれば格納できるのでしょうか。 A 列 B列 35 apple 37 orange 40 banana 以下がコードです。 sub test() Dim i as integer Dim myDic as Object Dim keys as Variant Set myDic = CreateObject("Scripting.Dictionary") For i = 1 to 3 myDic.Add Cells(i, 1), Cells(i, 2) Next i keys = myDic.keys For Each keys In myDic MsgBox "キー名：" & keys & vbCr & "値：" & myDic.Item(keys) Next keys MsgBox myDic.Exists(35) End Sub
- ベストアンサー
- 会計ソフト
- EXCEL VBAの配列でわかりません。
こんなコードがあるのですが、最後の他のシート（作業中シート）に書き込もうとするとエラーになってしまいます。”Sheets("作業中").”を抜くと同じシートに結果は返ってくるのですが…。コードの内容は、ある範囲のある列から空白ではないセルを探し出してその行のデータを配列で汲み取り、他のシートに一括で洗い出すというものです。 Sub 作業中() Dim myRow As Long Dim Data As Variant Dim WC() As Variant Dim WCE() As Variant myRow = Range("H1").CurrentRegion.Rows.Count Data = Range("H1:M" & myRow).Value For i = 1 To myRow If Data(i, 5) <> "" Then a = a + 1 Else b = b + 1 End If Next ReDim WC(a) ReDim WCE(b) c = 0 d = 0 For i = 1 To myRow If Data(i, 5) <> "" Then WC(c) = Range("H" & i & ":K" & i).Value c = c + 1 Else WCE(d) = Range(Cells(i, 8), Cells(i, 11)).Value d = d + 1 End If Next For i = 0 To a Range(Cells(i + 1, 15), Cells(i + 1, 18)).Value = WC(i) Next For i = 0 To b Range(Cells(i + 1, 19), Cells(i + 1, 22)).Value = WCE(i) Next e = Range(Cells(1, 15), Cells(a, 18)).Value Sheets("作業中").Range(Cells(1, 1), Cells(a, 4)).Value = e End Sub ちなみに同じシートから↓のコードを実行するとうまくいきます。 なぜ～？？わからな～い？？おしえてくださーい！！ Sub test() Dim a As Variant a = Range("H1:K4") Sheets("作業中").Range("N1:Q4") = a End Sub
- ベストアンサー
- オフィス系ソフト
- Excel.Rangeで取得した値を配列に格納するには？
プログラミング初心者です。 VB.NET でExcelからデータを取得したのですが、配列等に格納したいのですが、うまくできなくて困っています。どなたか教えてください。 例)以下のデータを取得する場合 セルＡ(列)１(行)からＡ５まで セルＢ１からＢ５まで セルＣ１からＣ５まで Dim xl_APP As Excel.Application Dim xl_Book AS Excel.Workbook Dim xl_Sheet As Excel.Seets = xl_Book.Worksheets Dim xl_W_Sheet As Excel.Worksheet = CType(xl_W_Sheet.Item(1),Excel.Worksheet) 中略 Dim range_data As Excel.Range Dim i Integer Dim j Integer Dim strCel As String For i = 1 To 5 For j = 1 To 3 range_data = CType(xl_W_Sheet.Cells(i,j),Excel.Range) strCel = CStr(range_data.Value) ↑String型変数に格納していますが、多次元配列？に格納して取り出せるようにしたいのですが、どうしたらよいのでしょうか？ Next Nest ＜range_dataに格納されるデータ＞ A1:氏名 B1:学年 C:1 年齢 以下同上 ・・・・のように取り出したいと考えています。 よろしくお願いします。
- 締切済み
- Visual Basic
- 宛名職人27Macで住所が印刷されない不具合が発生しています。
- ソースネクスト株式会社の製品・サービスである宛名職人27Macを使用していると、住所が印刷されないという問題が発生しています。
- この問題は、宛名職人27Macの最新バージョンを使用しているにもかかわらず、住所の印刷ができないという報告が多く寄せられています。
お礼
早速のご返答ありがとうございます。 なるほど！気が付きませんでした。 こちらが一番簡単かもしれませんね。 ただ、実際の作業用の表が間に5列あるのでできればそれぞれで代入できる方法もわかると非常にありがたいです。