VBA 二維陣列整體直接賦值的方法小結

2021-10-25 06:26:21 字數 870 閱讀 5370

一維陣列可以通過這樣一行**來整體賦值:arr = array("你", "我", "他", 1, 2, 3, "aa", "bb", "cc")

那麼,如果想給二維陣列採用類似的方法來整體賦值,要怎麼辦呢?

arr=array("你", "我", "他"  ; 1,2, 3 ; "aa", "bb", "cc"),好像不行。

一番搜尋,網上給出的答案有如下:

第一種:使用[{}]將字串括起來,字串行間用分號(;)分割,列間用逗號(,)分割:

arr =

第二種:使用array函式進行構造,但要轉置兩次後方可得到結果

arr=array(array("你", "我", "他"),array(1, 2, 3),array("aa", "bb", "cc"))

第三種:使用evaluate,大部分情況下 等同於

特殊情況,

以上三種情況,當一行**寫起來太長,不方便檢查,需要按多行來寫時,第1種辦不到,第2種**太多,第3種稍有優勢。

數字型別的,可以按如下方法書寫:

文字型別的,記得雙引號由一對變兩對書寫:

最後總結一下三種方法的特點:

序號

**示意

**特點

字串數量(個)

有文字時字串雙引號數量

**行數

1arr=精簡1

一對12arr=array(array(字串1),array(字串2),array(字串3))複雜多

一對多3普通

1,多兩對

VBA陣列賦值(2 2) 二維陣列

借助工作表為二維陣列賦值就非常簡單直接了,示例 如下。sub demo4 dim myarray myarray range a1 c3 stop endsub 如願以償的生成了3x3的二維陣列。如果陣列中的資料是在 中生成的,也不是必須要借助工作表單元格,才能實現為二維資料賦值,很多時候從 執行效...

VBA 二維陣列氣泡排序例項

學習vba的同學經常會用到陣列的排序,網上介紹的程式演算法一般都是舉例一維陣列,增加了公升降序選擇,排序列號選擇,以及標題行數等實際需要使用的引數 private sub test dim arr sheets sheet1 select row sheets sheet1 usedrange.ro...

c 二維陣列賦值及二維指標使用

include void main int tmp 2 test printf value d n tmp 0 printf value d n tmp 0 printf value d n tmp 1 printf value d n tmp 1 printf value d n tmp 0 1 ...