[原创]★Excel数据管理的一般规律★

xiaomudi80

谢谢分享！

shencao718

学习学习

yxhao

下载学习 看看

yxhao

刚理解了下 简易数据管理   ，给自己 所用的工作薄 增加了个高级筛选  ，删除 一部分工式， 工作薄运行比以前快了一点。

yxhao

昨天晚上 用你的数据 管理  自己改过后 可以用，  今天 把复制 范围 改大 后就出现错误了，老师来指导 下”方法range作用于对象global时失败“   下面是改动的， 但 把 录入表 改回  数据库  运行 就没有问题
FFF = Range("N5")
GGG = Range("N8")
    Range(GGG).Select
    Selection.Copy
    Sheets("录入表").Select
    Range(FFF).Select
    'ActiveWindow.SmallScroll Down:=9
  
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      '上面语句的含义是:对选择的内容(Selection)，执行PasteSpecial操作(选择性粘贴)，粘贴的方式为
'      数值，且不进行运算，不跳过空单元格，不转置，可参考选择性粘贴窗口的各个选项。选择区域，是
'     由Range("n8").Select语句产生的，即对n8的单元格范围执行“选择”的操作.

    Range("A1").Select
    Sheets("表单").Select
    Range("A2:M9").Select
    Range("A2").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
  End Sub

N5   =   组数公式:  {"数据库!A"&MIN(IF(数据库!E2:E65536="",ROW(数据库!2:65536)))}
N8  =IF($O$9="","表单!O8:AA8","表单!O8:AA15")

求解！！！！！

yxhao

加了这句  也不行    'ActiveWindow.SmallScroll Down:=9。
错误 出现在 选 择性粘贴  处 这句

lxxiex

感谢楼主大神分享

13827701408

谢谢楼主分享！

dd7788

感谢老师的无私分享

asdw0121

学习了，先收藏