Vba脚本，用于删除包含特定文本字符串的所有行，从而产生不匹配错误以及转置脚本

我使用以下两个宏来清理我在一列中收到的数据，第一个是清理包含某些不需要的字的行的数据。第二个变量将该列转换为由变量（在本例中为X）标识的行。当我在新桌面上运行这两个脚本时，它们现在都出现了不匹配错误13。如果有人能帮助修复，我们将不胜感激

谢谢

Sub deletewordsandblanks()

Last = Cells(Rows.Count, "A").End(xlUp).Row
For i = Last To 1 Step -1
        If (Cells(i, "A").Value) = "Surname" Then

        Cells(i, "A").EntireRow.Delete

    End If
Next i
End Sub

转置通过以下方式完成：

Sub transpose()
Dim i As Long, lRow As Long, n As Long, j As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row
n = 1
j = 1
For i = n To lRow
    If Cells(i, 1).Value = "X" Then
        Range(Cells(i, 1), Cells(n, 1)).Copy
        Range(Cells(j, 2), Cells(j, i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
              :=False, transpose:=True
        Application.CutCopyMode = False
        n = i + 1
        j = j + 1
    End If
Next i
Columns(1).Delete
End Sub

---

问题不在于代码，而在于数据格式不正确，导致不匹配。这是因为从扫描的文档转换到列中。

---

为这个错误道歉，感谢你们的帮助

一,。这不是您的问题，但您应该始终表示所有范围对象的父工作表。2.对于您的问题，数据字段中是否存在错误？错误发生在何处，是否显示？两者中“If”语句的行无法重新创建错误。此外，如果要在多个工作表上使用此工具，则表示父工作表将适得其反。我了解到运行64位与32位microsoft office可能存在问题，但不知道这在此处如何应用。