Question

我有一个包含两个工作表的excel-workbook，我已编写代码将数据从第1页传输到第2页。我需要的是包括一个条件，检查列G是否不包含某个值。在这种情况下，我希望MsgBox显示“Check ..”。

表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

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

1 个答案: