Excel 陣列值,一次直接寫入儲存格

Function temp234()

Dim arr(1 To 10) As Integer

    For i = 1 To 10

        arr(i) = i

    Next i

    '橫向寫入

    Sheets("test").Range("a1:j1") = arr

    '直向寫入

    Sheets("test").Range("a1:a10") = Application.WorksheetFunction.Transpose(arr)

End Function

留言

這個網誌中的熱門文章

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

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

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