VBA腳本用於刪除包含某些文本字符串的所有行，這些文本字符串給出不匹配錯誤以及轉置腳本

Question

我使用以下兩個宏來清理我在一列中接收到的數據，第一個是清理包含某些不需要的單詞的行的數據。 第二個將這一列轉置為由變量標識的行（在本例中為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

Answer 1

問題不在於代碼，但數據格式不正確並產生不匹配。 這是由於從掃描的文檔到該列的轉換。 對錯誤表示歉意，並感謝您的幫助！