Excel 將array值,塞入儲存格
function 將array值_塞入儲存格()
'初始值
Con=10
'變數設定
set ShtTmp=Sheets("sheets1")
'程式開始
dim arr_Val
redim arr_Val( 1 to Con, 0 to 0) '第一維是y軸,第二維是x軸
for i=1 to Con
arr_Val(i)=i
next i
with ShtTmp
.range( .cells(1,1), .cells(Con,1))=array
end with
end function
'初始值
Con=10
'變數設定
set ShtTmp=Sheets("sheets1")
'程式開始
dim arr_Val
redim arr_Val( 1 to Con, 0 to 0) '第一維是y軸,第二維是x軸
for i=1 to Con
arr_Val(i)=i
next i
with ShtTmp
.range( .cells(1,1), .cells(Con,1))=array
end with
end function
留言
張貼留言