posted by wap, platform: iPhone

如果工作表2不需要修改的话，可以用排序加offset函数搞定，动不动vba喷了

posted by wap, platform: iPhone

用公式可以很快做到的：

工作表1里进行所有的修改；
工作表1里面符合条件的记录，根据先后次序出现在工作表2中；
工作表2只做展示不能修改，当然你可以copy出去再修改

既然你每次都是从sheet1的第一行开始判断,那么不需要copy到sheet2的最后一行.
直接 Destination:=Sheets("sheet2").range("a1") 得了

另外做得地道点,在copy前需要清空sheet2的内容

还是真心不建议这种用公式就可以搞定的去用vba,今后维护很成问题.

引用:

原帖由 conansick 于 2013-4-25 22:56 发表

这样OK吗？谢谢指教了！

Application.ScreenUpdating = False

Sub c()
    FOR I = 1 to 100
    if Sheets("sheet1")(A,I)=1
    then Sheets("sheet1").Range("ai:di") copy Destination:= Sheets("she ...

posted by wap, platform: iPhone

引用:

原帖由 @SeraphZtoA  于 2013-4-26 19:18 发表
这还不如用透视表

LZ第二个表用透视表不就行了？

话说LZ的需求真的好奇怪

列数多了很吃力