[已解决]总表中数值分批导入多张分表相应位子中，怎么做啊

wine.k

因为分表实在太多，我想有没有什么办法，把总表中姓名，金额导入到多张（汗100来张）分表相应该位子中，谢谢了哈

最佳答案

月排行榜 / 总排行榜

linch92413

2015-3-22 18:08

可以用VBA，新建一个模块，放入以下代码

1. 
   
2. Sub tc()
   
3. Dim i As Integer
   
4. For i = 2 To 101
   
5.     With Sheets(i)
   
6.     .Range("b3") = Sheet1.Range("e" & i)
   
7.     .Range("b5") = Sheet1.Range("f" & i)
   
8.     .Range("d5") = Sheet1.Range("g" & i)
   
9.     End With
   
10. Next i
    
11. End Sub

复制代码

跳转到最佳答案楼层

linch92413

可以用VBA，新建一个模块，放入以下代码

1. 
   
2. Sub tc()
   
3. Dim i As Integer
   
4. For i = 2 To 101
   
5.     With Sheets(i)
   
6.     .Range("b3") = Sheet1.Range("e" & i)
   
7.     .Range("b5") = Sheet1.Range("f" & i)
   
8.     .Range("d5") = Sheet1.Range("g" & i)
   
9.     End With
   
10. Next i
    
11. End Sub

复制代码

baksy

请参考

xuyouxm

个贷.zip (20.81 KB, 下载次数: 2)

2015-3-22 18:33 上传

点击文件名下载附件

请参考附件中的内容，谢谢！

wine.k

linch92413 发表于 2015-3-22 18:08
可以用VBA，新建一个模块，放入以下代码

十分感谢，

wine.k

xuyouxm 发表于 2015-3-22 18:33
请参考附件中的内容，谢谢！

谢了哈，真的有这么管理的，实际上主要是又要打印，又要电脑有存档。