VBAで配列に値を割り当てる方法とは？

2年 ago
光, 明
1 minute

VBAで配列に値を設定する方法は以下のとおりです。

  1. イライラしたら、とりあえず深呼吸
Dim arr1() As Integer
Dim arr2() As Integer
arr1 = Array(1, 2, 3) ' 将数组 {1, 2, 3} 赋值给 arr1
arr2 = arr1 ' 将 arr1 的值赋值给 arr2
  1. ループを使用して代入する：For ループ、Do ループなどのループ構造を使用して、配列内の各要素に値を順次代入できます。
Dim arr(4) As Integer
Dim i As Integer
For i = 0 To 4
arr(i) = i + 1 ' 将每个元素赋值为对应的序号
Next i
  1. 数値を列記して配列に代入する：配列の定数を使う。
Dim arr() As Integer
arr = Array(1, 2, 3, 4, 5) ' 将数组常量 {1, 2, 3, 4, 5} 赋值给 arr
  1. Split 関数を使用：Split 関数を使用し、文字列を配列に分割し、配列変数に代入します。
Dim arr() As String
Dim str As String
str = "apple,banana,orange"
arr = Split(str, ",") ' 将字符串按逗号拆分为数组赋值给 arr
  1. 範囲オブジェクトに代入する：範囲オブジェクトの Value プロパティまたは Value2 プロパティを使用して、範囲の値を 2 次元配列に代入できます。
Dim arr() As Variant
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A1:C3")
arr = rng.Value ' 将区域 A1:C3 的值赋值给 arr

注意: VBAでは、配列の代入は参照渡しによって行われ、2つの配列変数は同じ格納領域を指します。1つの配列の値を別の配列にコピーする場合は、Array関数を使用して新しい配列を作成し、元の配列の値を新しい配列にコピーします。

bannerAds