【紧急求助】筛选内容，剪切到其他sheet

sun_560 · 发表于 2019-3-23 21:26

本帖最后由 sun_560 于 2019-3-23 21:28 编辑

我想把sheet1中B列“不及格”所对应的行剪切到sheet2中，sheet2中也需要表头（第一行的内容）

爱疯 · 发表于 2019-3-24 08:55

Sub 按钮1_Click()
Sheets(2).Cells.Clear
With Sheets(1).Range("a1").CurrentRegion
      .AutoFilter field:=2, Criteria1:="不及格"
      .SpecialCells(xlCellTypeVisible).Copy Sheets(2).Range("a1")
      .AutoFilter
End With
End Sub

		自动登录	找回密码
密码			注册