Question

希望快速提问。下面的代码就像我需要的那样工作，但是，似乎并没有将行复制到另一个工作表。事实上...... excel似乎没有对p = p + 1做任何事情。我确信这是一个容易犯的错误，但我似乎无法找到问题。关于为什么可能不会发生的任何想法？非常感谢。

Sub Pending(): Dim wp As Worksheet, wa As Worksheet, a As Long, p As String
Set wp = Sheets("Pending"): Set wa = Sheets("Projects"):
p = Application.Max(3, wp.Range("A" & Rows.Count).End(xlUp).Row + 1)
For a = 5 To wa.UsedRange.Rows.Count

If wa.Range("Q" & a) = "Move" Then
wa.Range("A" & a).Resize(1, 19).Value = wa.Range("A" & p).Resize(1, 19).Value
wp.Range("A" & p) = "": p = p + 1:

End If
Next a
End Sub

Answer 1

您可能应该在冒号后转到下一行。改变这个：

wp.Range("A" & p) = "": p = p + 1:

对此：

wp.Range("A" & p) = "":
p = p + 1:

对不起之前的错误

p = p + 1不起作用？

1 个答案: