[已解决]怎么用VBA实现,将期末结存转期初数

n520 · 发表于 2012-1-8 15:31

本帖最后由爱疯于 2012-2-5 15:31 编辑

烦请看附件

期末结存转期初数.rar (4.97 KB, 下载次数: 46)

zjcat35 · 发表于 2012-1-8 15:37

上附件吧啦啦

qzc804030 · 发表于 2012-1-8 15:57

带个附件,可以看看啊

windimi007 · 发表于 2012-1-8 17:48

这样吗？估计实际数远远不止这些数据吧！{:4212:}

复制代码

n520 · 发表于 2012-1-9 07:56

本帖最后由 n520 于 2012-1-9 07:56 编辑

windimi007 发表于 2012-1-8 17:48
这样吗？估计实际数远远不止这些数据吧！

楼主，首先感谢你的回复，但是这样的效果不太好，你想到了数据多的情况，实际生活中也是这样的，看看还有没有更好方案

windimi007 · 发表于 2012-1-9 08:22

n520 发表于 2012-1-9 07:56
楼主，首先感谢你的回复，但是这样的效果不太好，你想到了数据多的情况，实际生活中也是这样的，看看还有 ...

是否可以更贴近实际再多模拟点数据？{:061:}

sunjing-zxl · 发表于 2012-1-9 08:54

本帖最后由 sunjing-zxl 于 2012-1-9 08:55 编辑

复制代码

附件：

期末结存转期初数-sunjing.rar (13.11 KB, 下载次数: 40)

n520 · 发表于 2012-1-9 08:56

本帖最后由 n520 于 2012-1-9 08:56 编辑

windimi007 发表于 2012-1-9 08:22
是否可以更贴近实际再多模拟点数据？

在重新给个附件看看

期末结存转期初数.rar (12.81 KB, 下载次数: 20)

sunjing-zxl · 发表于 2012-1-9 09:15

n520 发表于 2012-1-9 08:56
在重新给个附件看看

我在7楼给你的代码没有增加行的限制，可以无限制增加。只要Excel能装得下都行

windimi007 · 发表于 2012-1-9 09:17

n520 发表于 2012-1-9 08:56
在重新给个附件看看

列的位置应该不会变吧！不过需要把多余的文字删除后再使用！{:3912:}

Sub Rectangle1_Click()
Dim i&
Application.ScreenUpdating = False
i = Cells(Rows.Count, 1).End(3).Row
If Not IsEmpty([N3]) Then Range("N3:N" & Cells(Rows.Count, "N").End(3).Row).ClearContents
Range("N3:N" & i) = Range("F3:F" & i).Value
Application.ScreenUpdating = True
End Sub

复制代码

		自动登录	找回密码
密码			注册