標題: 如何用巨集使用vlookup且會帶到資料最後一筆 [打印本頁]

---

作者: chen890708    時間: 2011-11-13 17:00     標題: 如何用巨集使用vlookup且會帶到資料最後一筆

請問檔案中有s1與s2工作表兩個,s1是對照表,s2是日常更新資料,需將s1資料帶入s2,

且s2的資料長度會隨時增加

想用vlookup完成,如何巨集表示?謝謝

---

作者: oobird    時間: 2011-11-13 20:52

1. Sub finddata()
   
2. With Sheets("s2")
   
3. For Each c In .Range(.Cells(2, 1), .Cells(65536, 1).End(3))
   
4. On Error GoTo 1
   
5. c(1, 2) = Sheets("s1").[a:z].Find(c)(1, 2)
   
6. 1:Next
   
7. End With
   
8. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)