SpecialCells(xlCellTypeFormulas）的问题

szachun

想在删除错误提示行的时候将这行数据复制到其他工作表。例子：

”查询“工作表的A2行没有找到数据，要把它所在在行删除，在删除前将A2单元格的数据复制到表3，a2中。现在的代码只能删除，不能复制。请大神帮忙。

liulang0808

Sub 清除()
Dim i As Integer, r, b As Integer
    r = Range("A65536").End(xlUp).Row
    X = 2
    For i = r To 2 Step -1
        If Range("a" & i) <> "" Then
            If VBA.IsError(Cells(i, 2)) Then
                Sheets(3).Cells(X, 1) = Cells(i, 1)
                Range("b" & i).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
            End If
        End If
    Next
End Sub

liulang0808

供参考。。。。。。

szachun

liulang0808 发表于 2019-12-9 07:41
供参考。。。。。。

只能显示复制的最后一个数据，加了个x=x+1,也没有作用。
Sub 清除()
Dim i As Integer, r, b As Integer
    r = Range("A65536").End(xlUp).Row
    x = 2
    For i = r To 2 Step -1
        If Range("a" & i) <> "" Then
            If VBA.IsError(Cells(i, 2)) Then
                Sheets(3).Cells(x, 1) = Cells(i, 1)
                x = x + 1
                Range("b" & i).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
            End If
        End If
    Next
End Sub

liulang0808

结合附件看看吧。。。。。。

szachun

liulang0808 发表于 2019-12-9 12:19
结合附件看看吧。。。。。。

收到，谢谢大神