如何從兩欄中尋找出指定值 - Excel程式區

[發問] 如何從兩欄中尋找出指定值

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

2^# 跳轉到 »

發表於 2013-4-28 14:54 | 只看該作者

回復 1# luke

若查首筆資料如下

Sub Test()
Dim Txt1 As String, Txt2 As String
Txt1 = [D3]
Txt2 = [E3]
[D3] = IIf(Left(Txt1, 1) = ";", Mid(Txt1, 2, Len(Txt1) - 1), Txt1)
[E3] = IIf(Left(Txt2, 1) = ";", Mid(Txt2, 2, Len(Txt2) - 1), Txt2)
Cells.Find(What:=[D3], LookIn:=xlValues).Activate
i = 1
Do
Cells.FindNext(After:=ActiveCell).Activate
If Cells(ActiveCell.Row, 1).Value = [D3] And Cells(ActiveCell.Row, 2).Value = [E3] Then
Exit Do
ElseIf i > 4000 Then
MsgBox "查無 " + [D3] + [E3] & "資料"
Exit Do
End If
i = i + 1
Loop
End Sub

複製代碼

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。