Question

我正在尝试遍历给定范围内的所有单元格。

该代码运行一次，但是此后给出运行时错误1004，应用程序定义的错误或对象定义的错误

下面是我遇到问题的代码块：

Dim cell As Range
Dim wbInstallation As String

wbInstallation = Application.Workbooks(2).Name
'Debug.Print wbInstallation.Name

For Each cell In Workbooks(wbInstallation).Sheets(wsName).Range(Cells(Start_Row_Num, Start_Column_Num), _
                        Cells(Last_Row_Num, Last_Column_Num))
                    If cell.Interior.Color = RGB(204, 0, 0) Then
                        Workbooks(2).Sheets(wsName).Range(Cells(cell.Row, 1), Cells(cell.Row, Last_Column_Num)).Copy
                        ThisWorkbook.Sheets(wsName).Range("A8").PasteSpecial
                        Application.CutCopyMode = False
                    End If
Next

我以另一种方式尝试了它，但是它给了我一个类型不匹配错误，运行时错误13。以下是代码：

Dim cell As Range
Dim wbInstallation As Workbook


Set wbInstallation = Application.Workbooks(2)
'Debug.Print wbInstallation.Name

For Each cell In Workbooks(wbInstallation).Sheets(wsName).Range(Cells(Start_Row_Num, Start_Column_Num), _
                        Cells(Last_Row_Num, Last_Column_Num))
                    If cell.Interior.Color = RGB(204, 0, 0) Then
                        Workbooks(2).Sheets(wsName).Range(Cells(cell.Row, 1), Cells(cell.Row, Last_Column_Num)).Copy
                        ThisWorkbook.Sheets(wsName).Range("A8").PasteSpecial
                        Application.CutCopyMode = False
                    End If
Next

请帮助！

Answer 1

您需要在代码中引用正确的工作表，即在引用单元格时对工作簿和工作表进行引用。见下文：

For Each cell In Workbooks(wbInstallation).Worksheets (wsName).Range(Cells(Start_Row_Num, Start_Column_Num), _
  Cells(Last_Row_Num, Last_Column_Num))

更改为：

For Each cell In Workbooks(wbInstallation).Worksheets(wsName).Range( _
  Workbooks(wbInstallation).Worksheets(wsName).Cells(Start_Row_Num, Start_Column_Num), _
  Workbooks(wbInstallation).Sheets(wsName).Cells(Last_Row_Num, Last_Column_Num))

这：

Workbooks(2).Sheets(wsName).Range(Cells(cell.Row, 1), Cells(cell.Row, Last_Column_Num)).Copy

对此：

Workbooks(2).Sheets(wsName).Range( _
  Workbooks(2).Worksheets(wsName).Cells(cell.Row, 1), _
  Workbooks(2).Worksheets(wsName).Cells(cell.Row, Last_Column_Num)
).Copy

这看起来很丑，所以我建议您将对特定工作表的引用存储在变量中，例如：

Dim s As Worksheets
Set sheet = 'sheet assignment

需要类型不匹配错误的解决方案

1 个答案: