根据筛选条件将内容剪切到另一个表

laizhimin0311

把表“问题”中问题状态为“完工”的整行内容剪切到表“已完成问题”

lushang2018

Yalishanda30

额。。。。。。。。。。。。

laizhimin0311

lushang2018 发表于 2023-3-15 10:14

现在是复制过来而已，原表内容还在呢，要实现剪切的效果

Yalishanda30

laizhimin0311 发表于 2023-3-15 10:26
现在是复制过来而已，原表内容还在呢，要实现剪切的效果

额。。。。。。。。。。。。。。。。。

ykcbf1100

筛选复制。。。

sxbjzjf110

参与一下。。。。

laizhimin0311

ykcbf1100 发表于 2023-3-15 10:51
筛选复制。。。

不对，全部复制过来了

ykcbf1100

laizhimin0311 发表于 2023-3-15 17:19
不对，全部复制过来了

你先筛选再复制啊。

gwjkkkkk

Option Explicit
Sub test()
Dim Rng As Range, ar, i&, iRow&
    ar = [A1].CurrentRegion
    For i = 2 To UBound(ar)
        If ar(i, 7) = "完工" Then
            If Rng Is Nothing Then
                Set Rng = Cells(i, 1)
            Else
                Set Rng = Union(Rng, Cells(i, 1))
            End If
        End If
    Next i
    If Not Rng Is Nothing Then
        With Sheets(2)
            iRow = .Cells(Rows.Count, "A").End(3).Row + 1
            Rng.EntireRow.Copy .Cells(iRow, 1)
            Rng.EntireRow.ClearContents
        End With
    End If
    Beep
End Sub