如何根据包含在列中的input（不在单元格中）使用IF条件？

我有一个Excel工作簿，其中包含两个工作表，我已经编写代码将数据从表1传送到表2。 我需要的是包含一个条件，检查列G是否不包含某个值。 在这种情况下，我想MsgBox显示“检查..”。

表1中感兴趣的范围是（A3：J50），所以条件会使单元格G3到G50感兴趣。

我目前的代码是：

Sub kk() Dim lastrow As Integer lastrow = [b50].End(xlUp).Row Range("b3:J" & lastrow).Copy Sheets("Daily Rec.").Range("b" & Sheets("Daily Rec.").[b1000].End(xlUp).Row + 1) Range("b3:j" & lastrow).ClearContents MsgBox ("Date Posted") Sheets("Daily Rec.").Activate MsgBox ("Check..") End Sub 

请指教

Answer 1

这应该有助于你开始。 但是和其他人一样，我们需要更多的信息来帮助。

 Sub Okay() Dim source As Range Dim target As Range Dim found As Range Dim cell As Range Set source = ThisWorkbook.Worksheets("Sheet 1").Range("A3:J50") Set target = ThisWorkbook.Worksheets("Sheet 2").Range("G3:G50") For Each cell In source.Cells Set found = target.Find(cell.Value) If found Is Nothing Then MsgBox "Check.." & vbNewLine _ & "Cell [" & cell.Address(0, 0) & "] on sheet [" & cell.Parent.Name & "]" _ & vbNewLine _ & "was not found within " & vbNewLine _ & "cell range of [" & target.Address(0, 0) & "] on sheet [" & target.Parent.Name & "]" End If Next cell End Sub