類型不匹配運行時錯誤13

Question

我之前已經成功運行了此宏，現在收到不匹配錯誤。

宏從“數據”選項卡（數據原始）復制所有行，其中“ Col S =單元格D1”（在不同的選項卡上）。 然后將特殊值粘貼到第三個選項卡（Rec01）。

D1，格式為“常規”，帶有文本數據（名稱）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 。 現在它再次運行，所有數據都被提取。

抱歉打擾。 再次感謝