怎么利用EXCEl的宏进行筛选
我想要筛选出这张表格（表格很大，行有2万行列有几十列，还有7、8个工作表）里所有时间为8：00的数据，留下时间点为8:00那一个单元格和他后面的数据，把其他的都删掉，例如K列中K24为8:00则保留K24和L24，依次向下直到这一列结束，接着O列和S列一直到后面，应该怎么设置宏？如果有其他的方法也行，在线等，挺急的
在你数据当前的左下角sheet 鼠标右键 点击最后一个 查看代码 把下面的代码复制到里面
使用的时候 03版是 菜单 工具----宏---宏---找到test的宏执行 即可
Sub test()
Application.ScreenUpdating = False
Dim rng As Range
Dim r1, i As Long
Dim findvalue As Range
r1 = ActiveSheet.Range("B65536").End(xlUp).Row
i = 1
For Each rng In ActiveSheet.Range("B1:B" & r1)
Set findvalue = ActiveSheet.Columns(1).Find(what:=rng.Value)
If Not findvalue Is Nothing Then
Cells(i, 3).Value = rng.Value
i = i + 1
End If
Next
Application.ScreenUpdating = True
End Sub追问
使用的时候 03版是 菜单 工具----宏---宏---找到test的宏执行 即可
Sub test()
Application.ScreenUpdating = False
Dim rng As Range
Dim r1, i As Long
Dim findvalue As Range
r1 = ActiveSheet.Range("B65536").End(xlUp).Row
i = 1
For Each rng In ActiveSheet.Range("B1:B" & r1)
Set findvalue = ActiveSheet.Columns(1).Find(what:=rng.Value)
If Not findvalue Is Nothing Then
Cells(i, 3).Value = rng.Value
i = i + 1
End If
Next
Application.ScreenUpdating = True
End Sub追问
谢谢你的回答，但是我没成功，用完还是和原来一样，我补充下就是找到Timestamp一列中时间点为8点的数据，把其他的都删除，有用的依次向上，然后寻找下一个Timesatmp列。
追答我成功了
温馨提示：内容为网友见解，仅供参考
无其他回答
相似回答
