GBKEE

回復 10# joey0415

版大的文章也常用 .End(xlUp).Offset(1)之類的定位找某一格或關鍵的上一個或下一格，不知道哪有相關的說明會清楚一些

看這裡

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim 物件 As Worksheet
   
4.     Set 物件 = Sheets("Sheet1")    '將Sheets("Sheet1")指定到物件變數
   
5.     With 物件.Range("a1:f1")
   
6.         .Font.Size = 15
   
7.         '會出現 .屬性,方法
   
8.     End With
   
9.     With Sheet1.Range("a1:f1")  'Sheet1 是專案中的物件(工作表物件的CodeName)
   
10.     'With Sheets("Sheet1").Range("a1:f1")  '不會出現  .屬性,方法
    
11.         
    
12.         .Font.Size = 15
    
13.         '會出現 .屬性,方法
    
14.     End With
    
15. End Sub

複製代碼

joey0415

回復 3# GBKEE

請問超版，陣列中有沒有類似Find(E, LookAT:=xlWhole)，把找到的資料放進另一個新的陣列中呢？

謝謝

1.         For Each E In AR
   
2.             Set Rng = .Range("B:B").Find(E, LookAT:=xlWhole)  '找每一股票的第一個位置
   
3.             .Range(.Cells(Rng.Row, "A"), .Cells(Rng.Row + 2, "D")).Copy .Cells(.Rows.Count, "F").End(xlUp).Offset(1)

複製代碼

GBKEE

回復 12# joey0415

    vba-名單比對相符合回寫資料 參考參考