WPS工作薄1中的A列所有数据,按顺序粘贴到表2、3、4、5、6.....200,求方法,谢谢!
想让工作薄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
其他回答
其它网友回答:
用引用函数可以实现:=INDIRECT("sheet"&ROW(A2)&"!a2")
其它网友回答:
你没有提供截图,供你参考。具体情况根据你自己的情况决定。
其它网友回答:
WPS应该没有写VB代码的功能,我没办法,如果是EXCEL,写个代码就搞定,或者你可以用EXCEL做这个文档,然后转换成WPS,可惜我EXCEL写代码好久没写了,记不得了,懒得花时间重新看一遍.
追问:
EXCEL可以搞定吗?
追答:
你这个要求复杂了,要省事只能用EXCEL新建个表,然后用宏编个小程序,自动生成两百个表,并把数字按要求填进去,最后保存这个表,然后改用WPS打开,另存为WPS的表,我只能这样搞莨薰 来自:成都理工大学工程技术学院
其它网友回答:
这个要弄宏命令 属于编程的范畴了