PKKO

回復 1# greetingsfromtw

基本上陣列是不能被選取的
只有物件才能被選取(活頁簿、分頁、儲存格等等)
下面是簡單範例，可自行運用

1. Sub arrayTest()
   
2. 
   
3. Dim ar
   
4. 
   
5. ar = Range("a1").Resize(Cells(Rows.Count, 1).End(xlUp).Row, 2)
   
6. For i = 2 To UBound(ar)
   
7.     If ar(i, 1) <> "" Then
   
8.         ar(i, 2) = i
   
9.     End If
   
10. Next
    
11. 
    
12. [a1].Resize(UBound(ar), 2).Value = ar
    
13. '若要選取,請自行應用
    
14. MsgBox ar(2, 2)
    
15. Cells(ar(2, 2), 1).Select
    
16. End Sub

複製代碼