Excel 基于单元格值，将整行从另一列开始移动到另一张图纸

这是我下面的代码，可以工作，但我需要它从C列开始粘贴。当将范围（“A”&J+2）更改为范围（“C”&J+2）时，它将不工作。我知道这很容易，但我还没有找到一个具体的例子

谢谢

Sub Patrick()

    Dim xRg As Range
    Dim xCell As Range
    Dim i As Long
    Dim J As Long
    Dim K As Long
    
    
    i = Worksheets("Patrick").UsedRange.Rows.Count
    J = Worksheets("Sheet1").UsedRange.Rows.Count
    If J = 1 Then
       If Application.WorksheetFunction.CountA(Worksheets("Sheet1").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Patrick").Range("A1:A" & i)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Phone Call" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet1").Range("A" & J + 2)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
 End Sub

xRg（K）.EntireRow.Copy

复制整行-除了第一列之外，不能将其粘贴到任何位置

使用更合理的方法，例如

xRg(K).EntireRow.Columns("A:Z").Copy 

---

或者任何可以捕获源代码表上的数据的东西

谢谢您的帮助。我试着给它投票，但不让我。如果它起作用，你可以通过点击旁边的复选标记接受它作为答案-这会告诉其他人稍后会有你的问题的答案。谢谢！完成了。嗨，布莱恩特J，欢迎来到Stack Overflow。堆栈溢出用于解决有关技术和应用程序的基于知识的问题。您的问题是实施性的，没有向社区提供任何具体的见解和知识。它只是for循环的索引。我建议您花更多的时间使用调试器，了解for循环及其索引是如何工作的。这是基本编码101。吉姆，不知道你的意思。蒂姆·威廉姆斯在下面回答了我的问题。