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

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

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

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 自己害自己，莫過於亂發脾氣。

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