- ベストアンサー
エクセル(VBA)の空白配列の削除について
chibita_papaの回答
- chibita_papa
- ベストアンサー率60% (127/209)
データ配列 = Split(データ源, Chr(13)) の前に データ源 = Replace(データ源, Chr(10), "") を入れてみたらどうでしょうか
関連する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（エクセル）
- 動的配列の後始末？
以下のサブルーチンで、lines()と動的配列を定義して、Splitでデータを入れたのですが、このサブルーチンが終了すると、lines()はデータも含めて解放されるのでしょうか？ 極端な話、1億回このサブルーチンを呼ぶと、メモリーリークするのでしょうか？ それと、VB6やVB.NETでは、For文・For Each文のどちらを使う方が良いのでしょうか？ Sub test() Dim lines() As String lines = Split(Data, vbCrLf, -1, vbBinaryCompare) Dim i As Integer For i = LBound(lines) To UBound(lines) MsgBox ("for=[" & lines(i) & "]") Next i Dim s As Variant For Each s In lines MsgBox ("for each=[" & s & "]") Next End Sub
- 締切済み
- Visual Basic
- 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の配列について
エクセルVBAの配列について VBAをはじめたばかりの初心者です。 現在、下記のようにデータを配列の中に入れ、 別シートに書き出そうとしております。 （配列へ読み込むところのみ） Dim 配列(1 To 件数, 1 To 9) As Variant For j =1 To 件数 For i = 2 To L If Cells(i, 2).Value = Tx_month Then For k = 3 To 11 配列(j, k - 2) = Cells(i, k).Value Next k End If Next j,i 現状では、データの最終行のみを「件数」分書き出してしまいます。 ｊとｉのForが重なっているからだと思うのですが、どう書き直したら良いか分かりません。 質問をさせていただくのも初めてなので、分かりづらく恐縮ですが お力添え頂けますと幸いです。 どうぞ宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel VBA のFor Each ・・・ Next について
配列に数字（特段数字でなくても）入れたいのですが、以下のように書きました。 Sub test() Dim x As Variant Dim m(1 To 10) As Integer For Each x In m x.Value = 100 Next Stop End Sub Stopでとめてmを確認するとすべて0です。どうしてなのでしょうか。 配列ではなく Sub test() Dim x As Variant For Each x In range("a1:a10") x.Value = 100 Next End Sub とするとA1:A10には100が入ります。 この差がいまいちわからなくて、 もちろんFor ・・・ Nextで簡単に入れられるのは承知しています。 補足ですが また最初はx.valueの.valueをつけていなかったのでセルにも反映されませんでしたが.valueをつけると入りました。
- ベストアンサー
- Visual Basic
- VBAの配列
VBAの配列の処理でこまっています。 dim test as Variant test = Array( _ Array("Aさん", 65, 70, 45), _ Array("Bさん", 80, 10, 90)) とした成績データがありまして、あとから（定義の段階でなく）、"Cさん", 70, 70, 75をtest変数に追加したい場合、どのようにすればよいのでしょうか？ また、これ(test)を戻り値にした場合、正しく左辺値にはいるのでしょうか？オブジェクトの解放などの問題も知りたいです。 function seiseki () as variant ... 上の処理 seiseki = test end function ... dim cp as Variant cp = seiseki() 'cp変数にコピーされるのでしょうか？
- ベストアンサー
- Visual Basic
- 配列の個数を数えたい
Dim ar As Variant ar = Split(moji, "/") '配列に格納 for i ＝ 0 to arの[配列の最大数] next [配列の最大数]の部分がわかりません。 たしか、「b」で始まって、「d」で終わり、中に「o」が入ってたような気がします、、、 （自信ないです） どなたかこれだけのヒントでわかる方いらしたら ご解答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAでオブジェクトの配列を使用するには？
Access2000のVBAでプログラムをしています。 VBAでクラスを作成し、プロシージャの呼び出しの引数に使用しています。あるプロシージャで、クラスの配列を作成し、呼び出し元へ返したいと思っていますが、うまくいきません。これは、できないものなのでしょうか？ ---（呼び出し側) Dim objA as clsA, aryB as variant ' 「aryB as Object」でもダメ procB objA, aryB Dim objTemp as Variant ' 「objTemp as Object」でもダメ For Each objTemp In aryB ' ここでエラー「オブジェクトが必要です」 MsgBox objTemp.AAA Next --- --- （プロシージャ側） Public Sub procB(ByRef objA as clsA, ByRef aryB as Variant) Dim aryRet() as clsB, lngI as long For lngI = 0 To 10 Redim Preserve aryRet(lngI) Dim objTemp as clsB Set objTemp = New clsB Set aryRet(lngI) = objTemp Next aryB = aryRet End Sub やりたいことは、プロシージャ側でオブジェクトの配列を作成し、呼び出し側に渡して、呼び出し側で、「For Each・・・Next」で回したいと思っています。 どのようにしたら実現できるか、知っている方、よろしくお願いします。
- ベストアンサー
- Visual Basic
- 配列
エクセルｖｂａなのですが Sub test() ' 配列 Dim arr() As Integer= {0, 1, 2, 3, 4, 5} ' 抜き出した要素を格納するための変数 Dim i As Integer ' すべての要素について繰り返す For Each i In arr Console.WriteLine (i) Next End Sub これって何でエラーになるのでしょう？ Dim arr() As Integer= {0, 1, 2, 3, 4, 5} でエラーになりますが、なぜだかわかりません。
- ベストアンサー
- Visual Basic
- Excel vba 配列内の最大値を求めたいです。
Excel vba をはじめて1ヵ月程度の初心者ですが、すいません質問させて下さい。 動的配列というのでしょうか？ その配列の中の最大値を求めたいのですが、よくわかりません。 アクティブシート内の図形で最前面以外の図形を消去しようと思ってます。 マクロで最大値の取得ができないので、暫定的にシートに計算させてしまっているのですが、マクロ上で最大値を求める方法がわかりません。 Sub testSZ() Dim Num As Integer, Sum As Integer, Shp As Shape, Ary() As Variant, Mxm As Long '++++++++++↓アクティブシート内の図形をカウント:=Sum Sum = 0 For Each Shp In ActiveSheet.Shapes Sum = Sum + 1 Next Shp '++++++++++↓配列の数を決定 ReDim Ary(1, Sum) '++++++++++↓配列に図形と図形のZオーダーを設定 Num = 0 For Each Shp In ActiveSheet.Shapes Shp.Select Set Ary(0, Num) = Shp Ary(1, Num) = Selection.ShapeRange.ZOrderPosition Num = Num + 1 Next Shp '++++++++++↓配列内のZオーダー最大値を取得 Mxm = Application.WorksheetFunction.Max '++++++++++↓最前面の図形以外を消去 Num = 0 Do If Mxm > Ary(1, Num) Then Ary(0, Num).Delete End If Num = Num + 1 Loop Until Sum = Num Erase Shp End Sub Application.WorksheetFunction.Max[] の[]にAryやAry(1,Num)をやってみたりしたのですが、 できないです。 どなたか御教授おねがい致します！！
- ベストアンサー
- オフィス系ソフト
お礼
今回の質問の条件では、chibita_papaさんの仰る方法が合理的だと思いました。本当に有難う御座いました。点数が割り振れなくて誠に申し訳ありません。 今後とも宜しくお願い致します。