excel - 比较两个不同工作表中的两列

Question

我想比较两个不同工作表中的两列，例如工作表 1 中的 A 列从第 2 行开始到最后一行，C 列从第 2 行开始到最后一行。如果 A 列中的行大于 C 列中的同一行，则会出现一个消息框“值更大”并清除 A 列中的较大值。感谢您的支持

标签： excelvbaexcel-formula

Answer 1

删除大于

Option Explicit

Sub deleteGreaterThan()
    
    Dim wb As Workbook
    Dim src As Worksheet
    Dim dst As Worksheet
    Dim LastRow As Long
    Dim i As Long
    
    Set wb = ThisWorkbook
    Set dst = wb.Worksheets("Sheet1")
    Set src = wb.Worksheets("Sheet2")
    LastRow = dst.Cells(dst.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To LastRow
        If dst.Cells(i, "A").Value > src.Cells(i, "C").Value Then
            MsgBox "The value in cell '" & dst.Cells(i, "A").Address(0, 0) _
              & "' is greater."
            dst.Cells(i, "A").Value = ""
        End If
    
    Next i

End Sub