VBA脚本用于删除包含某些文本string给出不匹配错误以及转置脚本的所有行

我使用以下两个macros来清理我在一列中收到的数据，第一个是清理包含某些不需要的单词的行的数据。 第二个将该列转换为由variables标识的行（在本例中为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

问题不在于代码，而是数据格式不正确，导致不匹配。 这是由于扫描文档转换为列。 道歉的错误，并感谢您的帮助家伙！