二次元配列の一部初期化

vbaで二次元配列{x,1}の配列に数字を代入していく処理をしていますが、
途中で{x,0}の列の値を初期化（empty）する方法はありますか？

Sub Macro4()
Dim A As Variant, B As Variant,  i As Integer

ReDim num(99, 1)
A = 0

for i = 1 to 100

if i <50 then
num(A,0)=i
num(A,1)="○"

A=A+1

else

num(A,0)=i　'このタイミング前でここを一度空にしたい
num(A,1)="×"
A=A+1
end if

end sub

y_waiwai

2021/01/08 06:00

初期化、とは具体的にどうするってことでしょうか

pulim

2021/01/08 06:05

代入した値を空（empty）としたいです。

行動規範の内容に同意します

回答4件

num(A, 0)はemptyが代入された直後、直ちにiが代入されるので、
emptyを設定する必要性が判りませんが
以下のようにしてください。

VBA
1Sub Macro4()
2    Dim A As Variant, B As Variant, i As Integer
3
4    ReDim num(99, 1)
5    A = 0
6
7    For i = 1 To 100
8
9        If i < 50 Then
10            num(A, 0) = i
11            num(A, 1) = "○"
12
13            A = A + 1
14
15        Else
16
17            num(A, 0) = Empty    'この行を追加
18            num(A, 0) = i 'このタイミング前でここを一度空にしたい
19            num(A, 1) = "×"
20            A = A + 1
21        End If
22    Next
23    
24End Sub
25

投稿2021/01/08 08:29

tatsu99

総合スコア5470

emptyについて誤解しているようです。
emptyは初期化ではなくvariant型専用の「初期化していない状態」を指します。
しかしvariant型の初期値でもあります。

また、初期化という単語も状況に応じて複数の意味を持ちます。
内部に格納したいデータが数値integer型の0なのか、""による長さ（値）0なのか。
variant型のNullみたいに有効な値を持たない状態なのか。
変数の再定義を行いたいのか。
現状では判断がつきません。

【追記】
難しいことを考えましたが例えば

num(A, 0) = empty
num(A, 0) = i

であれば配列にempty値を代入することは出来ます。

単純にこれでしたかね？

投稿2021/01/08 07:32

編集2021/01/08 07:52

退会済みユーザー

総合スコア0

意図はまったくわかりませんがこんな感じ？
num(0,0)とnum(0,1)に値を上書きしてるだけですよね。
外でAのFor Nextしてるのかな。

vba
1For i = 1 To 49
2    num(A, 0) = i
3    num(A, 1) = "○"
4Next
5
6num(A, 0) = ""
7
8For i = 50 To 100
9    num(A, 0) = i
10    num(A, 1) = "×"
11Next