[已解决]帮忙修改代码满足条件要求

hhaa999 · 发表于 2010-1-22 14:16

vQkwTLJV.rar (13.62 KB, 下载次数: 1)

影月小筑 · 发表于 2010-1-22 14:20

看看就好，占位学习

amulee · 发表于 2010-1-22 14:37

没看懂。。。你举的例子也不正确。

wsfsy · 发表于 2010-1-22 14:43

Sub findred()
Dim maxRow As Long
maxRow = Sheet1.[A65535].End(xlUp).Row
Sheets("sheet2").Cells.ClearContents
Sheet1.Range("a1:c2").Copy Sheets("sheet2").Cells(1, 1)
For t1 = 1 To maxRow
If Cells(t1, 3) <> "" And Val(Cells(t1, 3).Value) > 50 Then
Range(Cells(t1 - 2, 1), Cells(t1, 1)).EntireRow.Copy Sheets("sheet2").Cells(Sheets("sheet2").[a65536].End(xlUp).Row + 1, 1)
End If
Next
End Sub

wsfsy · 发表于 2010-1-22 14:43

猜的

hhaa999 · 发表于 2010-1-22 14:54

52 18 1 行和51 24 5 等等的三行依次

汇总依次

wsfsy · 发表于 2010-1-22 15:00

贴出来你的最终效果

hhaa999 · 发表于 2010-1-22 15:05

qs	hm	ylz
2002145	213	52
2002164	341	18
2002166	413	1
2003103	340	51
2003128	413	24
2003134	324	5

枯禅 · 发表于 2010-1-22 15:12

sbGInr8Z.rar (14.35 KB, 下载次数: 15)

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