如何比较 VBA 中不同工作表中的两个值？

Question

我是 VBA 的新手。 在这里，我想比较不同工作表中的两个值属于同一个工作簿。 在 Sheet1 中，只有 A 列填充了几个数字（即 1、2、3、4、5），而在 Sheet2 中，三列中填充了enter code here值。 而在 Sheet2 中，A 列具有以下值（即 2、1、4、3、5）。 在这里，我将 Sheet1 A 列的值与 Sheet2 中 A 列的值进行比较。 我收到连续错误

运行时错误“13”

Option Explicit

Sub chek()
Dim ws As Workbook
Set ws = ThisWorkbook
Dim sheet As Worksheet
Dim firstRng As Integer
firstRng = Sheet2.Range("A:A").Value
Dim secondrng As Integer
secondrng = Sheet1.Range("A:A").Value

Dim i As Integer
For i = 1 To 5

    For Each sheet In Worksheets
        If IsArray(secondrng) = IsArray(firstRng) Then
            Sheet2.Range("A1:C1").Value.Copy
            Sheet3.PasteSpecial

        End If

    Next sheet
Next i
End Sub

Answer 1

这段代码应该可以解决。 如前所述：您不能将范围分配给 integer。 其次，VBA 与 arrays 并没有那么好，这就是为什么我喜欢将值 1 比 1 比较的原因。平等的。 下面的代码是第一个。

Sub check()
Dim ws As Workbook
Set ws = ThisWorkbook
Dim firstrng As Range
Dim secondrng As Range
Set firstrng = Sheets(1).Range("A:A")
Set secondrng = Sheets(2).Range("A:A")

Dim i As Integer
For i = 1 To 5
    If firstrng.Cells(i, 1).Value = secondrng.Cells(i, 1).Value Then
        Sheets(1).Range("A" & i & ":C" & i).Copy Destination:=Sheets(3).Range("A" & i & ":C" & i)
    End If
Next i

End Sub

Answer 2

Richa，你的代码完全错误，试试这个解决方案

Sub Columnscompare() 'ok
Dim Dn As Range
LR1 = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
LR2 = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
LR = LR2
If LR1 > LR2 Then LR = LR1
For Each Dn In Sheets(1).Range("A1:A" & LR)
  If Not Dn = Sheets(2).Range("A1")(Dn.Row, Dn.Column) Then MsgBox "Not equals Ranges": Exit Sub
Next Dn
MsgBox "Both Ranges have the same data"
End Sub