excel 表格vba自动输出符合条件的单元格所在的整行到新的工作表中

Question

如题所述

Answer 1

sub xx()
dim x as long
x=sheets("newsheet").range("a65536").end(xlup).row()+1
for i 1 to sheet1.range("a65536").end(xlup).row()
if 符合条件 then
sheet1.rows(i),copy
sheets("newsheet").rows(x).select
selection.paste
x=x+1
endif
next i
endsub追问

VBA程序检测G列的数值，当检测到G列数值中的单元格数值为0时，则符合条件，vba就把数值为0的单元格所在的整行的内容复制到新的excel表格中！谢谢

追答Sub xx()
On Error Resume Next
If Sheets("newsheet") Is Nothing Then
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "newsheet"
End If
Dim x As Long
x = Sheets("newsheet").Range("a65536").End(xlUp).Row() + 1
For i = 1 To Sheet1.Range("a65536").End(xlUp).Row()
If Sheet1.Cells(i, "G") = 0 Then
Sheet1.Rows(i).Copy
Sheets("newsheet").Select
Rows(x).Select
ActiveSheet.Paste
x = x + 1
End If
Next i
End Sub