[已解决]如何用代码做递减式移动数据？

greenday

附件 递减式移到数据附件.rar (10.43 KB, 下载次数: 7)

2013-5-17 10:00 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2013-5-17 11:32

greenday 发表于 2013-5-17 10:54
老师您好，谢谢您帮助！附件中的述求是，依次递减，要一键填满46张表格。

你里面一共是  50 张表，要填写那46张呢？？

以下代码是从第一张开始填写到第46张，公式填写到 AZ1：AZ8 单元格，你根据自己的需要修改就是了

1. 
   
2. Sub 宏1()
   
3. Dim X As Byte
   
4. For X = 1 To 46
   
5.     Worksheets(X).Range("AZ1:AZ8").FormulaR1C1 = "=SUM(RC[-51]:RC[-1])"
   
6. Next
   
7. MsgBox "公式填写完毕！"
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

无聊的疯子

BC1 单元格输入公式,然后下拉就可以了

1. 
   
2. =SUM(A1:AW1)
   

复制代码

或者鼠标选择 BC1到BC8 然后按 ALT + =   ，公式自动一次填充

无聊的疯子

录了一个操作的图片

deeplysee

新手前来灌水 呵呵

greenday

无聊的疯子 发表于 2013-5-17 10:22
BC1 单元格输入公式,然后下拉就可以了或者鼠标选择 BC1到BC8 然后按 ALT + =   ，公式自动一次填充

老师您好，谢谢您帮助！附件中的述求是，依次递减，要一键填满46张表格。

无聊的疯子

greenday 发表于 2013-5-17 10:54
老师您好，谢谢您帮助！附件中的述求是，依次递减，要一键填满46张表格。

你里面一共是  50 张表，要填写那46张呢？？

以下代码是从第一张开始填写到第46张，公式填写到 AZ1：AZ8 单元格，你根据自己的需要修改就是了

1. 
   
2. Sub 宏1()
   
3. Dim X As Byte
   
4. For X = 1 To 46
   
5.     Worksheets(X).Range("AZ1:AZ8").FormulaR1C1 = "=SUM(RC[-51]:RC[-1])"
   
6. Next
   
7. MsgBox "公式填写完毕！"
   
8. End Sub
   

复制代码