EXCEL数据如何进行对比筛选?

发布网友发布时间：2022-04-29 23:31

共2个回答

热心网友时间：2022-06-25 23:29

你用宏试试看:
1.ALT F11打开VB脚本编辑器.
2.(菜单)插入->模组
3.贴上如下代码:
Sub Macro1()
k = 0
Sheets("sheet2").Select
Cells.Select
Selection.Delete
Sheets("sheet1").Select
Cells(1, 1).Select
For i = 1 To 65535
Cells(i, 1).Select
tmp = ActiveCell.Value
If Len(tmp) <= 0 Then
End
End If
If Asc(tmp) >= 48 And Asc(tmp) <= 57 Then
If tmp <> Int(tmp) Then
k = k 1
Rows(i).Select
Selection.Copy
Sheets("sheet2").Select
Rows(k).Select
ActiveSheet.Paste
Sheets("sheet1").Select
Rows(i).Select
Selection.Delete
i = i - 1
End If
End If
Next
End Sub
4.关闭VB脚本编辑器,回到EXCEL
5.ALT F8运行宏
6.OK
7.说明:
此宏删除第一列不为整数的整行记录,并把删除的整行备份到sheet2工作表.
当第一列数据不为数字时不做处理,注意sheet2为全空,因为程序的开始会清空sheet2
8.注意此代码贴上去之後会变成一行,你要注意换行哦,涉及到删除操作,建议你在删除前备份资料.
9.如有不明白的请联系

热心网友时间：2022-06-25 23:30

公式就是 A1<>B1