posted by wap, platform: iPhone

可以实现
用vba

posted by wap, platform: iPhone

楼主其实是有个自动复制要求的，不用vba怎么实现自动筛选+粘贴复制 靠那些个功能有限的公式吗

所以vba 几句话就能解决楼主问题

当然如果楼主不要求自动话的话 手动可以通过先筛选然后复制粘贴可见单元格实现

本帖最后由 Cheve 于 2013-4-24 08:59 通过手机版编辑

posted by wap, platform: iPhone

引用:

原帖由 @jammin  于 2013-4-24 20:01 发表
posted by wap, platform: iPhone

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

楼主的意思应该是，每次工作表1有新数据更新就要检测是否满足1，满足后自动复制粘贴到工作表2的最后一行数据下面 ， 这个用offset定位能实现？复制粘贴这个动作本身就是需要vba的 copy&paste方法的 offset只能定位引用而已吧

posted by wap, platform: iPhone

引用:

原帖由 @conansick  于 2013-4-25 14:14 发表
就是这个意思，如果使用VBA的话，会不会每次有更改都闪一下？

不会闪 有一条语句是控制屏幕更新用的
代码一开始先关掉屏幕更新，在代码结尾处打开屏幕更新就ok了 就不会闪了

运行 DO_TEST() 里面可以修改总行数和查找的数值

Sub DO_TEST()
Application.ScreenUpdating = False
Sheets(2).Cells.Clear
             Call PRES(100, 2)           '可以更改 100表示有100行 3表示查找3
Application.ScreenUpdating = True
End Sub
Sub PRES(rolcont, lokup)
Dim i As Integer
Dim ii As Integer
Sheets(1).Activate
ii = 1
    For i = 1 To rolcont
        If Sheets(1).Cells(i, 1).Value = lokup Then
            Sheets(1).Cells(i, 1).EntireRow.Copy Destination:=Sheets(2).Cells(ii, 1)
        ii = ii + 1
        End If
    Next i
End Sub

文件链接：https://skydrive.live.com/redir? ... ey=!AGeeSdhXW9hcTlg