[求助]word到excel

jshq8612 · 发表于 2006-11-22 18:22

请问如何将word文档中的表格中的数据导入到excel中，文档非常多，复制粘贴太麻烦，能否编一段宏

守柔 · 发表于 2006-11-22 18:34

QUOTE:

以下是引用jshq8612在2006-11-22 18:22:04的发言：
请问如何将word文档中的表格中的数据导入到excel中，文档非常多，复制粘贴太麻烦，能否编一段宏

欢迎jshq8612

能否上传一下附件呢？WORD的，Excel的，空对空，如何做呢，对不？

有关上传附件，可搜索相关贴子。

jshq8612 · 发表于 2006-11-22 18:51

lvVDCcmE.rar (69.38 KB, 下载次数: 14)

多谢斑竹回复！

解释一下这个任务：这是一个卫生系统的调查，由于各地市没有报数据库而是报的word文档，如附件所示，现在要分析首先要把数据整理出来才能用统计软件分析。我就是想把文档中的第二个表格中的数据转置后粘到excel中相应的变量名下，形成数据集，然后再分析。

多谢执教了！！

二月春天 · 发表于 2006-11-22 19:29

不好意思，我还是不明白要怎么做才能够转换,请赐教！

jshq8612 · 发表于 2006-11-22 19:38

我现在也只知道录制一个宏，先把表格拷贝到excel中再用选择性粘贴，粘贴到相应的变量后面。

共同学习！

Sub Macro1()
    Sheets("Sheet3").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1:D15").Select
    Range("D15").Activate
    Selection.Copy
    Sheets("Sheet1").Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

守柔 · 发表于 2006-11-23 06:40

请楼主认真地告诉我，你上传的WORD和EXCEL文档之间有联系吗？

jshq8612 · 发表于 2006-11-23 15:03

多谢斑竹关注！

excel是数据集，word是各个单位上报的数据。excel中第一行是变量名，前几列是上报单位的基本资料，可以不关，最主要是后几列，对应的数据在word中的第二个表格

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