VBA &金融

本文介绍了如何运用VBA进行金融数据的汇总操作,并详细讲解了利用VBA计算提成的方法,结合具体案例展示了VBA在金融领域的应用。
摘要由CSDN通过智能技术生成

汇总数据,算提成

G:\py\210523finance\VBA专题12-课程需用材料

Sub Macro1()
Dim ws As Worksheet
Dim i As Integer

For i = 1 To 20
Set ws = Sheets.Add     '不要忘记sheet复数
ws.Name = "部门 " & i


Workbooks.Open ("G:\py\210523finance\VBA专题12-课程需用材料\Dept " & i & ".xls")
Windows("Dept " & i & ".xls").Activate   '打开,去复制数据
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select    '选中到本行最右边
Range(Selection, Selection.End(xlDown)).Select    '选中到本行最下边
Selection.Copy

Windows("Demo 1.xlsm").Activate     '回来粘贴数据
Sheets("部门 " &
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值