例如:我需要把家具的这个excel表里的K12的数值,复制到工具这个excel表里的D5,剩下的我再进行举一反三,只要能实现一个,应该就能实现其他的,不是同一表格的工作蒲,而是不同表格的数据进行复制,就是把A表个里算出来的某个位置的数据,搬运到B表格里需要我放的对应的位置,但是不能影响各自原先的表格格式,就是把对应数据提取到另一个表格。
Sub 搬运工pro()
Windows("家具.xlsx").Activate
Sheets("Sheet1").Select
金币20 = InputBox("亲爱的老板~ 当前表格是'家具'表,宝贝在哪个单元格呀?", "找活的搬运工")
Range(金币20).Copy
Windows("工具.xlsx").Activate
Sheets("Sheet1").Select
金币20到手 = InputBox("亲爱的老板~,当前是'工具'表,要放到哪个单元格呀?", "干活的搬运工")
Range(金币20到手).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
MsgBox "谢谢老板", vbOKOnly, "下班的搬运工"
End Sub