excel - 在工作表 1 中存储的 VB 函数中使用工作表 2

Question

我想比较 2 个不同工作表中 2 列的值，如果值相等，则第一个工作表中的相应单元格将在第二个工作表中的相应单元格中采用相同的值。所以我使用了循环函数，但问题是我无法在第一个工作表的函数中定义和使用第二个工作表。

我将不胜感激指导我解决这个问题。

您将在下面找到我想要使用的功能:

Sub Test_V01()
    Dim i As Integer
    Dim j As Integer

    Dim Bouira As Excel.Worksheet

    For j = 3 To 100
        For i = 3 To 120
            If Cells(j, 3) = Bouira!Cells(i, 30) Then 
                Cells(j, 12) = Bouira!Cells(i, 31)
            End If
        Next i                 
    Next j

End Sub

Answer 1

1. 将 Cells(j, 3) 和 Cells(j, 12) 替换为 Me.Cells(j, 3)和 Me.Cells(j, 12) 分别确保始终使用此工作表中的单元格，而不是事件工作表中的单元格。

2. 将 Bouira!Cells 替换为 Bouira.Cells。工作表中不存在其元素具有 Cells 字面值的集合。

3. 在进入循环之前分配对 Bouira 的引用:

   Set Bouira = ThisWorkbook.Worksheets("Sheet name")