由于太久,我一直希望能够提供一些见解。如何检查一个范围内的单元格是否存在于另一个范围内
我试图循环一个单元格范围(varSKU1),检查每个单元格是否存在于另一个单元格区域(varSKU2)。如果该值不存在,我想将它作为新的单元格添加到varSKU2中。下面
代码:
Dim varSKU1(), varSKU2() As Variant
Dim n, m As Integer
Dim sku1, sku2 As Variant
Dim rowCount1, rowCount2 As Integer
Dim mFlag As Boolean
rowCount1 = Sheets("SKUs").Cells(Rows.Count, "A").End(xlUp).row
rowCount2 = Sheets("Cats").Cells(Rows.Count, "A").End(xlUp).row
varSKU1 = Sheets("SKUs").Range("A2:A" & rowCount1).Value
varSKU2 = Sheets("Cats").Range("A2:A" & rowCount2).Value
m = rowCount2 + 1
For Each sku1 In varSKU1
mFlag = False
For Each sku2 In varSKU2
If sku1 = sku2 Then
mFlag = False
Exit For
Else
mFlag = True
End If
Next sku2
If mFlag = True Then
Sheets("Cats").Range("A" & m).Value = sku1
Sheets("Cats").Range("B" & m).Value = "Misc"
Sheets("Cats").Range("C" & m).Value = "Miscellaneous"
m = m + 1
End If
Next sku1
眼下,该代码将所有值varSKU1为新的细胞来表(“猫”),无论在varSKU2是否存在价值。
没有读过你的代码,但通过标题,你尝试过'相交'吗? – findwindow