怎么样才能把流水账自动分类到各自的银行帐里 O(∩_∩)O谢谢各位大侠 急用

袁先生

重新上传了在看，

HHXK2012

袁先生 发表于 2013-2-12 23:16
重新上传了在看，

谢谢 大侠这个正是我想要的  

HHXK2012

增加账户出现  运行时错误 9   下标越界
Sub 拆分表()
Dim i%
Dim rng As Range
Dim s As String
Dim sht As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
  For Each sht In Sheets
         If sht.Name <> "流水账" Then sht.Range("A5:p50000").ClearContents
     Next

  i = 5
  s = Cells(i, "a").Value
  Do While s <> ""
  Set rng = Worksheets(s).Range("a65000").End(3).Offset(1, 0)  Cells(i, "b").Resize(1, 15).Copy rng
   i = i + 1
   s = Cells(i, "a").Value
   
   Loop
  Application.DisplayAlerts = False

Application.ScreenUpdating = True

End Sub

袁先生

首先要复制一个副表，表名改为你要的银行名字，再在流水账里面添加新的银行记录，我试了没有问题啊，

袁先生

新建的表第一行留为期初余额之用，余额可为零

袁先生

看这个吧，

HHXK2012

谢谢 可以了  {:soso_e179:}

doris_9898

学习了，高手

mucuntuoq

可否发一份给我。。。。。刚好需要用到~~！邮箱：2077187@QQ.COM    万分感谢

rjtang

袁先生 发表于 2013-2-12 23:02
修改了一下，再看有什么问题，

谢谢,下载学习,不知能否用在我的银行流水帐.