1樓：匿名使用者
'只能用迴圈：
dim i as integer
for i = 0 to ubound(arr1)if arr2(1,i) <> "" then arr1(1,i) = arr2(1,i)
if arr3(1,i) <> "" then arr1(1,i) = arr3(1,i)
next
[e3].resize(i-1,1) = arr1
2樓：匿名使用者
willenhu提的建議感覺可以哦
dim i as integer
i = 3
docells(i, 5) = right(trim(cells(i, 2) & " " & cells(i, 3) & " " & cells(i, 4)), len(trim(cells(i, 2) & " " & cells(i, 3) & " " & cells(i, 4))) - instrrev(trim(cells(i, 2) & " " & cells(i, 3) & " " & cells(i, 4)), " "))
i = i + 1
loop until trim(cells(i, 2) & " " & cells(i, 3) & " " & cells(i, 4)) = ""
msgbox ("done")
直接可以使用
3樓：匿名使用者
我推薦一種方法：
第一步：先將需要的單元格數值合併成乙個用逗號分隔的字串；
第二步：將第一步合併的字串拆分成乙個陣列。
你怎麼看？
建立55的二維陣列。用隨機函式為陣列賦值,數值的範圍
include include include int main printf n printf n for i 0 i 5 i for i 0 i 24 i for j 0 j 24 i j if a 0 j a 0 j 1 printf n行優先遞增有序 n for i 0 i 5 i retu...
Excel vba陣列批量賦值有其他好的表達方式達到所要的結果嗎
sub test dim strmb 1 to 2 as stringstrmb 1 甲,乙 strmb 2 丙,丁 dim intindex as integerdim vararray 1 to 2 as variantfor intindex 1 to 2vararray intindex s...
VB中,我賦值給二維陣列，想把這個陣列儲存到中，然後再從這個檔案中把讀取資料，再賦給二維陣列
陣列怎麼儲存到txt 要先轉成字串吧 vb從文字檔案讀取資料並賦給賦值給變數及二維陣列 你這個問題請參考上面幾個知道，從檔案中讀取的方法與上面的都是一樣的，就是一次讀取一行，再將這一行的內容以逗號分界分開到乙個中間陣列中，再判斷是第幾行，第一行賦值給n,ta,xa,ya，判斷出讀到的是第二行就賦值給...