Question

之前我已成功运行此宏，现在我收到了Mismatch错误。

宏从数据选项卡（数据原始）复制所有行，其中Col S =单元格D1（在不同的选项卡上）。然后将特殊值粘贴到第三个选项卡（Rec01）。

D1，格式为General，带有文本数据（名称） Col S，格式为General，所有公式，显示名称。

Sub CopyRowToRec01()
Dim LastRowData, LastRowRec01 As Long
Dim i As Long
Application.ScreenUpdating = False
LastRowData = Worksheets("data-raw-Comb").Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("data-raw-Comb")
    For i = 2 To LastRowData Step 1
        If Cells(i, "S").Value = Worksheets("data-lookuptable").Range("D1") Then
            LastRowRec01 = Worksheets("Rec01").Range("A" & Rows.Count).End(xlUp).Row
            Rows(i).Copy
            Worksheets("Rec01").Range("A" & LastRowRec01 + 1).PasteSpecial Paste:=xlPasteValues
        End If
    Next i
End With
    Application.ScreenUpdating = True
End Sub

运行相同版本的Excel。任何见解将不胜感激。 DD

Answer 1

 If Cells(i, "S").Value = Worksheets("data-lookuptable").Range("D1") Then

谢谢大家的回复。我不确定上次有什么变化，但我必须将.Value更改为.Text。现在它再次运行，所有数据都被拉了。

抱歉打扰。再次感谢

类型不匹配运行时错误13

1 个答案: