Question

这是我的问题。我需要在2个不同的工作表上比较2组单元格。

在表1中，单元格A1和A2。在表2中，单元格A1和A2。

在表单1上，每个单元格将由一个数字编号填充，一个数字大于另一个，例如：1-2,2-1,3-1等，并且永远不等于另一个。

在工作表2上，只有一个单元格将填充一位数字。其他单元格将始终为空。

我需要确定工作表2上的非空单元格是否与包含更大数字的工作表1上的单元格相同。

不幸的是，我接下来对VBA知之甚少，试图从教程中学习，但我似乎无法弄清楚如何编写那个。有人可以帮帮我吗？

非常感谢。

Answer 1

Sub DoIt()
    Dim Sh1 As Worksheet, Sh2 As Worksheet
    Set Sh1 = Worksheets("First")
    Set Sh2 = Worksheets("Second")
    Dim iValue1 As Long
    If Sh1.Cells(2, 1) > Sh1.Cells(1, 1) Then
        iValue1 = Sh1.Cells(2, 1)
    Else
        iValue1 = Sh1.Cells(1, 1)
    End If
    Dim iValue2 As Long
    If Len(Sh2.Cells(2, 1)) = 0 Then
        iValue2 = Sh2.Cells(1, 1)
    Else
        iValue2 = Sh2.Cells(2, 1)
    End If
    If iValue1 = iValue2 Then
        MsgBox "Equal"
    Else
        MsgBox "Different"
    End If
End Sub

VBA新手的棘手功能

1 个答案: