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

留言

這個網誌中的熱門文章

超任 三國志3代,登入武將金手指

歐姆龍 HEM-7600T 評價,購買心得分享(打臉文)

年青人眼鏡評價(負評),辛酸血淚史分享文