excel - 宏将行移动到另一个工作表但忽略新工作表中的公式

Question

我想知道是否有人可以帮助我。一旦售出，我正在使用宏将信息从一张纸移动到另一张纸。问题是新工作表具有内置公式，可在添加项目时自动填充数据。我想知道是否有办法仍然使用宏但将行移到新工作表但忽略公式。现在它将行移动到最后一个公式单元格之后的行。

我正在使用的当前代码是：

Sub Sold()
'Updated by Kutools for Excel 2017/8/28
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Open Inventory").UsedRange.Rows.Count
    J = Worksheets("Sold").UsedRange.Rows.Count
    If J = 1 Then
       If Application.WorksheetFunction.CountA(Worksheets("Sold").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Open Inventory").Range("H1:H" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Sold" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sold").Range("A" & J + 1)
            xRg(K).EntireRow.Delete
            If CStr(xRg(K).Value) = "Sold" Then
                K = K - 1
            End If
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

标签： excelvba