Excel Transpose 儲存格值、轉置資料
'陣列轉置
dim Arr2,arr_tmp
dim ShtNo as object
dim LenArr2 as Integer
Set ShtNo = Sheets("數字表")
Arr2 = Application.WorksheetFunction.Transpose(arr_tmp)
LenArr2 = UBound(Arr2, 1)
ShtNo.Cells(4, 7).Resize(LenArr2, 1) = Arr2
dim Arr2,arr_tmp
dim ShtNo as object
dim LenArr2 as Integer
Set ShtNo = Sheets("數字表")
Arr2 = Application.WorksheetFunction.Transpose(arr_tmp)
LenArr2 = UBound(Arr2, 1)
ShtNo.Cells(4, 7).Resize(LenArr2, 1) = Arr2
留言
張貼留言