用公式追蹤出自那一欄位

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-1-14 15:11 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-1-15 07:07 編輯

回復 2# register313
出自何欄位 : 如尋找的值在一欄中出現數次會有誤差

Option Explicit
Sub Ex()
Dim MyText As String, Rng As Range, F_Address As String, TheFind As String
MyText = Trim(InputBox("請輸入要尋找的值:"))
If MyText <> "" Then
Set Rng = Range("A1").CurrentRegion.EntireColumn.Find(MyText, lookat:=xlWhole)
If Not Rng Is Nothing Then
F_Address = Rng.Address
Do
TheFind = IIf(TheFind = "", Rng.Address(0, 0), TheFind & " " & Rng.Address(0, 0))
Set Rng = Range("A1").CurrentRegion.EntireColumn.FindNext(Rng)
Loop Until F_Address = Rng.Address
End If
End If
If TheFind <> "" Then
MsgBox MyText & " 位於 : " & TheFind
Else
MsgBox "沒有找到 " & MyText
End If
End Sub

複製代碼

靜思自在 : 站在半路，比走到目標更辛苦。