excel 表格vba自动输出符合条件的单元格所在的整行到新的工作表中
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
