VBA新手的整蠱功能

Question

這是我的問題。我需要在2個不同的工作表上比較2組單元格。

在表1上，單元格A1和A2。 在工作表2上，單元格A1和A2。

在表1中，每個單元格將填充一個數字號碼，其中一個比另一個更大，例如：1-2,2-1,3-1等等，並且永遠不會等於另一個。

在工作表2上，只有一個單元格將填充單個數字號碼。其他細胞將永遠是空的。

我需要確定紙張2上的非空單元格是否與包含較大號碼的紙張1上的單元格相同。

不幸的是，我有接近0的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