[已解决]怎么粘贴单元格的数据？

sfaasdada · 发表于 2013-2-14 20:33

本帖最后由 sfaasdada 于 2013-2-17 01:00 编辑

怎么把Book1工作簿黄色区域的数据按顺序粘贴在Boook2工作簿H5单元格里？
附件：

Book.rar (3.2 KB, 下载次数: 35)

十五的月亮 · 发表于 2013-2-14 20:53

你想用VBA吗？我只会技巧，用VBA你可以录制个宏

suye1010 · 发表于 2013-2-14 21:06

本帖最后由 suye1010 于 2013-2-16 14:00 编辑

Sub CombineData()
ThisWorkbook.Sheets(1).Range("H5") = Join(Application.Transpose(Workbooks.Open(ThisWorkbook.Path & "\book1.xls").Sheets(1).Range("G4:G7")), Chr(10))
Workbooks("Book1.xls").Close
End Sub

复制代码

cbg2008 · 发表于 2013-2-14 21:12

十五的月亮发表于 2013-2-14 20:53
你想用VBA吗？我只会技巧，用VBA你可以录制个宏

用录制宏的方法得不到对OFFICE剪贴板的操作，有点难度。

十五的月亮 · 发表于 2013-2-14 21:22

cbg2008 发表于 2013-2-14 21:12
用录制宏的方法得不到对OFFICE剪贴板的操作，有点难度。

VBA不会

误导别人了

cbg2008 · 发表于 2013-2-14 21:25

十五的月亮发表于 2013-2-14 21:22
VBA不会误导别人了

这对于会者不难，难者不会，我跟你一样属于后者。

sfaasdada · 发表于 2013-2-14 21:25

十五的月亮发表于 2013-2-14 20:53
你想用VBA吗？我只会技巧，用VBA你可以录制个宏

你这视频看不清怎么操作的？

十五的月亮 · 发表于 2013-2-14 21:27

sfaasdada 发表于 2013-2-14 21:25
你这视频看不清怎么操作的？

下载下来看会清楚些

sfaasdada · 发表于 2013-2-14 21:39

十五的月亮发表于 2013-2-14 21:27
下载下来看会清楚些

还是看不清楚，太快了

sfaasdada · 发表于 2013-2-14 21:51

十五的月亮发表于 2013-2-14 21:27
下载下来看会清楚些

粘贴后怎么操作的

		自动登录	找回密码
密码			注册

请将代码写在book2.xls文件中