以下のように配列を設定し、A(ix)の配列にdo untilでそれぞれに文字列を入れようとしておりますが、うまくいきません。
dountil の一回目では代入ができているようですが、2回目ができずに止まってしまいます。
おかしな点がありましたらご指摘いただけませんでしょうか。
Dim A() As String
Dim ix As Long
ix = 0
ReDim Preserve A(ix)
Dim tate As Long
tate = 1
Do Until tate = 8
A(ix) = ws.Cells(tate, 1)
tate = tate + 1
ix = ix + 1
Loop
Doの初回A(0)に文字列は入りますが、
Doの二回目以降A(1)に文字列を入れる作業ができずに止まってしまいます。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
動的配列を想定されているのならば、「ReDim Preserve A(ix)」文を
「Do Until tate = 8」の直後に移動させてください。
No.1
- 回答日時:
ix = 0
ReDim Preserve A(ix)
なので
>Doの初回A(0)に文字列は入りますが、
>Doの二回目以降A(1)に文字列を入れる作業ができずに止まってしまいます
になって、当たり前のような気がしますが。
別に訳ありでなければ
Dim A() As String
Dim ix As Long
ix = 0
ReDim Preserve A(ix)
を
Dim A(8) As String
Dim ix As Long
ix = 0
にしては?
この回答への補足
回答ありがとうございます。
配列A(8)にはできません
配列の数はケースバイケースで変動しますので
そのためにixを別に宣言しております。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- Visual Basic(VBA) Excel VBA でデータ転記について 1 2023/03/07 19:11
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) エクセルから、パワーポイントのスライドを複数作成する。 1 2022/07/08 09:40
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列の値を置換するにはどうす...
-
COLUMN(1:1)の意味を教え...
-
in_addrからchar型の文字列の変換
-
数値を浮動小数点32bitHEXコー...
-
ファイルの特定行を取り出したい.
-
VB 配列の内容をファイルに書...
-
エクセルへのデータの貼付時に...
-
VB.NET 2次元配列
-
C言語 exitの使い方
-
フォームを開くときに、コンボ...
-
VBAでダブルコーテーション入り...
-
エラーの意味は? Lvalue req...
-
数値計算??
-
C言語で全角文字を扱いたいので...
-
Excel-vba 文字列と変数を...
-
インクリメント演算子の前置(+...
-
jsp~jspにhiddenを使って変数...
-
processing エラーで、 "cannot...
-
VBAで配列のNULL判定
-
正規表現で、英数記号を含むパ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelの、ある数式内の{}の意...
-
配列の値を置換するにはどうす...
-
vbsでテキストファイル内の文字...
-
エクセルへのデータの貼付時に...
-
VBAのWorksheetFunctionの引数...
-
RichTextBoxの改行を認知してく...
-
数値を浮動小数点32bitHEXコー...
-
VBSで特定の文字列が含まれる場...
-
○桁にある数値を取得する VB.N...
-
COLUMN(1:1)の意味を教え...
-
【エクセル】 関数による電子...
-
VB6で配列を文字列に変換する方...
-
エクセル、この関数の意味は?
-
VB 配列の内容をファイルに書...
-
copyRecordsetの数値16桁以上に...
-
列数の多いエクセルのデータを...
-
VB.NET 2つの配列を連動して並...
-
Javaのプログラムをルビー言語に。
-
Win32APIでシリアル通信をする...
-
ruby "\\001\\376".unpack("C*"...
おすすめ情報