WPS工作薄1中的A列所有数据,按顺序粘贴到表2、3、4、5、6.....200,求方法,谢谢!

原问题:WPS工作薄1中的A列所有数据,按顺序粘贴到表2、3、4、5、6.....200,求方法,谢谢!
分类:编程开发 > 最后更新时间:【2016-12-22 04:58:30】
问题补充:

想让工作薄1中的A列所有数据(200个,A1-A200),按顺序粘贴到表2、3、4、5、6.....200的某个固定单元格内,就是表1中A1的数据拷到表2的D3,A2到表3的D3,A3到表4的D3,依次类推,请问各位该怎么做??谢谢。

最佳答案

由于我使用的WPS是个人版,没有注册登录,无法使用VBA编码,故使用微软2010编辑演示。

SubA1去表2的D3()
'A2去表3的D3,A3去表4的D3……A200去表201的D3
Dimi%
Fori=1To200
IfSheets(i).Name=Sheets(Sheets.Count).NameThenSheets.AddAfter:=Sheets(Sheets.Count)
Sheets(i).Name="表"&i
Ifi=200ThenSheets(i+1).Name="表"&i+1
Sheets(i+1).[D3]=Sheets(1).Range("A"&i)
Nexti
EndSub

最佳答案由网友    提供
公告: 为响应国家净网行动,部分内容已经删除,感谢网友理解。
12

分享到:

其他回答

其它网友回答:
用引用函数可以实现:=INDIRECT("sheet"&ROW(A2)&"!a2")

其它网友回答:
你没有提供截图,供你参考。具体情况根据你自己的情况决定。

其它网友回答:
WPS应该没有写VB代码的功能,我没办法,如果是EXCEL,写个代码就搞定,或者你可以用EXCEL做这个文档,然后转换成WPS,可惜我EXCEL写代码好久没写了,记不得了,懒得花时间重新看一遍.


追问:
EXCEL可以搞定吗?
追答:
你这个要求复杂了,要省事只能用EXCEL新建个表,然后用宏编个小程序,自动生成两百个表,并把数字按要求填进去,最后保存这个表,然后改用WPS打开,另存为WPS的表,我只能这样搞莨薰 来自:成都理工大学工程技术学院

其它网友回答:
这个要弄宏命令  属于编程的范畴了