GBKEE

回復 5# user999
也可以不跑迴圈.

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Arr(), Brr(1 To 2)
   
4.     Arr = [A1:E70].Value
   
5.     Brr(1) = Application.Index(Application.WorksheetFunction.Transpose(Arr), 2)
   
6.     Brr(2) = Application.Index(Application.WorksheetFunction.Transpose(Arr), 4)
   
7. End Sub

複製代碼