|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
回复 548楼 ggsmart 的帖子
真对不起,我是一个笨笨鸟,到现在循环语句还弄不明白,我把那个P值试了一下,会复制4次同一张表,惭愧啊!
另我改写了IF语句(应是这句出错吧?),但还是不成功,不知应该怎样写,还是那里写错了,请指教,谢谢!
Sub mysub()
Application.ScreenUpdating = False
Dim start As Double
start = Timer
Sheets(1).[b3:f65536].ClearContents
For i = 2 To 8
aa = Sheets(1).[b65536].End(xlUp).Row + 1
bb = Sheets(i).[b65536].End(xlUp).Row
If Sheets(i).Range("A3").Value = Sheets(1).Range("a" & aa).Value Then
Sheets(i).Range("b3:c" & bb).Copy
Sheets(1).Cells(aa, 2).PasteSpecial (xlPasteValues)
Sheets(i).Range("e3:e" & bb).Copy
Sheets(1).Cells(aa, 4).PasteSpecial (xlPasteValues)
Sheets(i).Range("k3:k" & bb).Copy
Sheets(1).Cells(aa, 6).PasteSpecial (xlPasteValues)
Sheets(i).Range("l3:l" & bb).Copy
Sheets(1).Cells(aa, 5).PasteSpecial (xlPasteValues)
End If
Next
MsgBox "程序共执行了" & Timer - start & "秒!"
Application.ScreenUpdating = True
End Sub |
|