Excel VBA过滤列，剪切内容并将其粘贴到其他工作表

Question

这是Sheet1并已将其重命名为s1

下面的 VBA 脚本创建了 2 个新工作表，并将其命名为Task XYZ和Group JKL 。

此脚本还过滤第二个字段（B 列），并查找特定于字符串的字符串，比如x 。

最后，它复制s1上的第一行并将其粘贴到另一个新创建的工作表中。

Sub test()

' 1. Create 2 new sheets, name it as `Task XYZ` and `Group JKL`
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Task XYZ"

Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Group JKL"

' 2. Filter 2nd field (column B), look for string "x"
Sheets("s1").Range("A1").AutoFilter Field:=2, Criteria1:="x"

' 3. Copy and paste s1 to other sheets
Sheets("s1").Rows(1).Copy
Sheets("Task XYZ").Paste
Sheets("Group JKL").Paste

End Sub

s1电流输出

Task XYZ和Group JKL当前输出

但我现在想做的不仅仅是复制和粘贴，还要剪切过滤后的内容。

s1期望输出

Task XYZ期望输出

Answer 1

这是Sheet1并已将其重命名为s1

下面的 VBA 脚本创建了 2 个新工作表，并将其命名为Task XYZ和Group JKL 。

此脚本还过滤第二个字段（B 列），并查找特定于字符串的字符串，比如x 。

最后，它复制s1上的第一行并将其粘贴到另一个新创建的工作表中。

Sub test()

' 1. Create 2 new sheets, name it as `Task XYZ` and `Group JKL`
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Task XYZ"

Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Group JKL"

' 2. Filter 2nd field (column B), look for string "x"
Sheets("s1").Range("A1").AutoFilter Field:=2, Criteria1:="x"

' 3. Copy and paste s1 to other sheets
Sheets("s1").Rows(1).Copy
Sheets("Task XYZ").Paste
Sheets("Group JKL").Paste

End Sub

s1电流输出

Task XYZ和Group JKL当前输出

但我现在想做的不仅仅是复制和粘贴，还要剪切过滤后的内容。

s1期望输出

Task XYZ期望输出