Sub FilterRows()
' 根据第7列的值来筛选数据,并且筛选条件为当前选定单元格的值
ActiveSheet.Range("A6").AutoFilter Field:=Selection.Column, Criteria1:=Selection.Value
' 将筛选后的结果复制到当前活动的工作表之后
With ActiveSheet
.Cells.Select
Selection.Copy
End With
Sheets.Add(After:=ActiveSheet).Paste
ActiveSheet.Rows("1:4").ClearContents
For Each cell In ActiveSheet.Rows(5).Cells
If Not IsDate(cell.Value) Then
cell.ClearContents
End If
Next cell
End Sub
运行能运行出来,就是只是一个筛选功能也太久了吧,请问是哪里的问题?
' 根据第7列的值来筛选数据,并且筛选条件为当前选定单元格的值
ActiveSheet.Range("A6").AutoFilter Field:=Selection.Column, Criteria1:=Selection.Value
' 将筛选后的结果复制到当前活动的工作表之后
With ActiveSheet
.Cells.Select
Selection.Copy
End With
Sheets.Add(After:=ActiveSheet).Paste
ActiveSheet.Rows("1:4").ClearContents
For Each cell In ActiveSheet.Rows(5).Cells
If Not IsDate(cell.Value) Then
cell.ClearContents
End If
Next cell
End Sub
运行能运行出来,就是只是一个筛选功能也太久了吧,请问是哪里的问题?