VBA 代码可以运行但运行完提示运行错误‘5’,无效的过程或调用参数,代码段指向If rng.Value = "┏" And rng(n + 1, 1).Value = "┗" Then行,请大神看看是什么原因
Sub text()
Dim rng As Range, n%
n = 1
For Each rng In Range("c:c")
If rng.Value = "┏" And rng(n + 1, 1).Value = "┗" Then
rng.Resize(n + 1, 1).Select
Selection.EntireRow.Copy Sheet2.Cells(Rows.Count, 4).End(xlUp)(2, -2)
ElseIf rng(n + 1, 1).Value = "1" Then
n = n + 1
rng.Resize(n + 1, 1).Select
Selection.EntireRow.Copy Sheet2.Cells(Rows.Count, 4).End(xlUp)(2, -2)
End If
Next
End Sub