我有這段代碼可以檢查 h22 中的值是否與 i 列中的條目匹配。如何更改它應該檢查 h22 是否與 i 列上的最后一個值完全匹配的代碼？
Option Explicit
Sub Macro()
Dim oWs As Worksheet
Dim rSearchRng As Range
Dim lEndNum As Long
Dim vFindVar As Variant
Set oWs = ActiveWorkbook.Worksheets("Sheet2")
lEndNum = oWs.Range("I1").End(xlDown).Row
Set rSearchRng = oWs.Range("I1:I" & CStr(lEndNum))
Set vFindVar = rSearchRng.Find(Range("H22").Value)
If Not vFindVar Is Nothing Then
MsgBox "Match"
Else
MsgBox "No Match Found"
End If
End Sub
uj5u.com熱心網友回復：
對照列中的最后一個單元格檢查單元格
I檢查作業表列中最后一個非空單元格Sheet2的值是否等于作業表單元格中的值H22并Sheet1顯示一個訊息框。
Option Explicit
Sub CheckCellAgainstLastCell()
Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
Dim sws As Worksheet: Set sws = wb.Worksheets("Sheet2")
Dim slCell As Range: Set slCell = sws.Cells(sws.Rows.Count, "I").End(xlUp)
Dim dws As Worksheet: Set dws = wb.Worksheets("Sheet1")
Dim dCell As Range: Set dCell = dws.Range("H22")
If CStr(dCell.Value) = CStr(slCell.Value) Then
MsgBox "It's a match.", vbInformation
Else
MsgBox "It's not a match.", vbCritical
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/435207.html
下一篇：索引和匹配矩陣公式