Option Explicit
Sub FindData()
Dim xR As Range, xA As Range, xF As Range, j%
'↑宣告變數:(xR,xA,xF)是儲存格變數,j是短整數
Set xR = [尋找!a2]
'↑令xR變數是"尋找"表的[A2]儲存格
xR(1, 2).Resize(1, 200) = ""
'↑令xR變數右1格儲存格擴展向右200格範圍儲存格值是空字元
Set xA = Sheets("工作表1").UsedRange
'↑令xA變數是 "工作表1"表有使用儲存格擴展最小方正範圍儲存格
Set xF = xA.Columns(1).Find(xR, Lookat:=xlWhole)
'↑令xF變數是 xA變數第1欄以 Range.Find 方法回傳物件(儲存格),
'亦以xR變數尋找 xA變數第1欄裡值全同的儲存格,回傳給xF變數
If xR = "" Or xF Is Nothing Then Exit Sub
'↑如果xR變數值是空字元 或xF是無物件? True就結束程式執行
For j = 2 To xA.Columns.Count
'↑設順迴圈!j從2 到 xA變數欄數
If xF(1, j) <> "" Then Set xR = xR(1, 2): xR = xA(2, j)
'↑如果xF變數第1列j變數欄儲存格值不是空的?
'True就令R變數是右1格儲存格,令xR變數是xA變數第2列j變數欄儲存格值
Next j
End Sub
學無止境!
或許真相只有一個,但是找尋真相的方法不只一種
謝謝前輩常用不同的方法指導後學
發表於 2021-1-26 17:39
| 
