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

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

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

1^# 跳轉到 »

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

複製代碼

靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。