GBKEE

回復 1# 吳毅謙

1. Option Explicit
   
2. Sub EX()
   
3.     Dim Ar(), xRow As Integer, xCol As Integer
   
4.     Ar = Range("a1").CurrentRegion.Value '從儲存格轉換的陣列:下限元素索引從 1 開始
   
5.     Range("a1").CurrentRegion = ""
   
6.     For xRow = 1 To UBound(Ar, 1)               '
   
7.         For xCol = 1 To UBound(Ar, 2)
   
8.             Cells(xCol, xRow) = Ar(xRow, xCol)
   
9.         Next
   
10.     Next
    
11. End Sub

複製代碼