[已解决]清除指定条件数据的问题

dfshm · 发表于 2014-7-27 16:31

本帖最后由 dfshm 于 2014-7-27 18:11 编辑

附件

baksy · 发表于 2014-7-27 17:03

本帖最后由 baksy 于 2014-7-27 17:06 编辑

sheet2工作表的A1单元格复制以下公式，
三键回车(点击公式编辑栏中的任意位置，按住 shift、ctrl 两个键，然后敲enter键 )
横拉、下拉；
=INDEX(Sheet1!A$1:A$999,SMALL(IF(Sheet1!$F$1:$F$142<13,ROW($F$1:$F$142),999),ROW(A1)))&""

AmoKat · 发表于 2014-7-27 17:19

使用F欄排序後刪除大於等於13以下的各列，2個步驟就完成

Excel学徒123 · 发表于 2014-7-27 17:57

Sub tt()
Dim I As Integer, n As Integer
For n = 3 To 7
For I = Cells(Rows.Count, 6).End(3) To 1 Step -1
If Cells(I, "f") >= 13 Then
Rows(I).Delete
End If
Next
Rows(n).Delete
Next
End Sub
复制代码

复制代码

Excel学徒123 · 发表于 2014-7-27 18:17

本帖最后由 Excel学徒123 于 2014-7-27 18:18 编辑

Excel学徒123 发表于 2014-7-27 17:57

Sub tt1()
Dim I As Integer, n As Integer
For n = 3 To 7
For I = 500 To 1 Step -1
If Cells(I, "f") >= 13 Then
Rows(I).Delete
End If
Next
Rows(n).Delete
Next
End Sub
那你再试试这个

复制代码

		自动登录	找回密码
密码			注册

[已解决]清除指定条件数据的问题

评分

评分

评分