麻辣家族討論版版 » Excelㄧ般區 » 如何用巨集使用vlookup且會帶到資料最後一筆

返回列表下一主題上一主題發帖

如何用巨集使用vlookup且會帶到資料最後一筆

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 30
點名: 0
作業系統: window7
軟體版本: office2007
閱讀權限: 10
性別: 女
註冊時間: 2011-11-13
最後登錄: 2012-10-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-11-13 17:00 | 只看該作者

如何用巨集使用vlookup且會帶到資料最後一筆

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

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

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

11.gif (87.97 KB)

樓主熱帖

收藏

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-11-13 20:52 | 只看該作者

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

複製代碼

靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。

返回列表下一主題上一主題