VBA代码 单元格匹配时报错（错误5）是什么原因？

Question

Sub 汇总()
Application.ScreenUpdating = False
Dim x As Long
Dim y As Long
Dim i1 As Long
Dim j1 As Long
For x = 1 To Sheets.Count - 1
   If Sheets(x).Name <> ActiveSheet.Name Then
      For y = 1 To Sheets(x).UsedRange.Rows.Count
      i1 = 1
      j1 = 1
      Do
      i1 = i1 + 1
      If Sheets("com").Cells(1, i1).Value = Sheets(x).Cells(y, 1).Value Then
      Exit Do
      End If
      Loop
      Do
      j1 = j1 + 1
      If Sheets("com").Cells(j1, 1).Value = Sheets(x).Cells(y, 3).Value Then
         Worksheets(x).Cells(x, 4).Copy Sheets("com").Cells(i1, j1)
      Exit Do
      End If
      Loop
      Next
    End If
Next
Range("A1").Select
Application.ScreenUpdating = True
End Sub

源代码如上，我打算做一个将多sheet数据导入单sheet的代码（多sheet与单sheet格式不同），但是在"      If Sheets("com").Cells(1, i1).Value = Sheets(x).Cells(y, 1).Value Then"句一直报错（错误5）。大佬帮忙看一下到底是错在哪儿了，谢谢。

Answer 1

参考GPT和自己的思路：

根据提供的源代码和错误信息，错误5通常是因为VBA代码无法访问对象或变量引用，即指定的元素不存在。在这种情况下，这个错误可能是由以下原因导致的：

1. Sheets("com")不存在或者名称不正确
2. i1的值超出了Sheets("com")的列数，导致代码无法找到匹配的单元格
3. Sheets(x)中的某些单元格为空，导致代码无法匹配
4. 输入的单元格格式不匹配，例如一个单元格包含文本另一个包含数字等

请检查上述因素，尤其是乘法行(i1)和乘法列(j1)的值。建议您在调试期间添加一些消息框来确定代码中的变量值。希望这可以帮助您解决问题。