Resize(UBound(a) + 1).Value = Application.Transpose(a) End Sub 執行畫面與結果:. 第二種:陣列有指定起始. Sub 陣列有指定起始() Dim a(1 To 3) ...
確定! 回上一頁