sheetname不匹配错误

我想知道为什么我一直面临着一个不匹配的错误

如果（表（newsheetname）.Rows（l）.Cells（1，2）.Value = product）则

代码基本上是要找出并匹配单元格，并跨越不同的工作表。

请参阅下面的我的代码：

Dim range1, range2 As Range 'define the variables Dim referencesheetcols As Integer Dim range1rows, range1cols, range2rows, range2cols, testrows, testcols, i, j, p As Long Dim bMatches, rowmatched As Boolean Dim product As String product = "ProductA" newsheetcols = 2123 referencesheetcols = 2123 ' how many rows and columns should we compare? testrows = 1 testcols = 7 p = Sheets(referencesheetname).UsedRange.Rows.Count For l = 7 To newsheetcols 'only test if correct product **If (Sheets(newsheetname).Rows(l).Cells(1, 2).Value = product) Then** rowmatched = False For k = 7 To referencesheetcols 'bmatch = False Set range1 = Sheets(referencesheetname).Rows(k) Set range2 = Sheets(newsheetname).Rows(l) ' count the rows and columns in each of the ranges range1rows = range1.Rows.Count range1cols = range1.Columns.Count range2rows = range2.Rows.Count range2cols = range2.Columns.Count 'are the ranges the same dimension? bMatches = (range1rows = range2rows And range1cols = range2cols) 'if same dimensions loop through the cells If bMatches Then For i = 1 To testrows For j = 1 To testcols If (range1.Cells(i, j).Value <> range2.Cells(i, j).Value) Then bMatches = False i = testrows j = testcols End If Next Next End If If bMatches Then rowmatched = True k = referencesheetcols End If 'Sheets(outputsheetname).Cells(1, 1).Value = rowmatched If (Not (rowmatched) And k = referencesheetcols) Then range2.Copy Sheets(outputsheetname).Range("a1:a6000").Cells(p, 1).Offset(2, 0).Select ActiveSheet.Paste p = p + 1 End If Next End If Next End Sub 

Answer 1

完成与SO指导方针相符的问题，

 If cstr(Sheets(newsheetname).Rows(l).Cells(1, 2).Value) = product Then rowmatched = False For k = 7 To referencesheetcols