Question

急，在线等！EXCEL问题！

是这么一个情况，现在就是说我有一张500人的名单，上面有500个人的名字和工号，另外一张就是电子表格，我需要把名字和工号自动导入到表格中，那样我就不用一个一个的复制，粘贴了。哪位大哥可以帮帮我呀！
定当重谢！我给50分，虽然不多，如果不够，我还可以给你下苦力，给你干活！谢谢大家！
各位大哥，我的意思是说，我excel里面有500个人的名单，我要导入另外一张表格，然后打印出来，最后呢就是说我每一张的只需要一个名字，但是呢现在又500个名字，就是说我要分500个文档打出来，，老土的办法就是一个一个复制，大哥们有没有好的办法，可以直接分页导入的。

Answer 1

这个Excel中已经包含了
以2007为例(比较方便,2003稍微麻烦一点,lz可以查看对应版本的帮助文档)
[搜寻条目]文本导入向导

1、使用"数据"菜单栏下面的"获取外部数据"
2、选择"自文本",进入"导入文本文件"对话框
支持prn,txt,csv格式(即便是没有分隔符号也没关系)
3、进入"文本导入向导"步骤1
可以选择"合适的文件类型"
A、使用“分隔符号”,例如,-; 之类
适合"张三1001"、"1001-张三"、"1002,李四"之类的文本格式
B、固定宽度,适合"1001张三"、"1002李四"这样没有间隔的情况,不过前提是所有编号长度一致,否则就需要人工分几次调整

步骤2、3请按照提示完成,图文操作很方便的~~~

Answer 2

发送到lfspecter@163.com

加QQ1201573

Answer 3

在excel里，文件--打开--选择txt文档：名单--下一步--分隔符号那里勾选【TAB键】和【空格】两个选项--下一步--完成
--------------------------------------
用VBA

Answer 4

名单是什么格式的？如果是word表格，直接复制粘贴，如果是txt文本，可以用数据导入功能导入，如果是纸质文件，先扫描、文字识别，再导入excel。

Answer 5

都是在EXCEL的话，应该可以全选复制的吧

Answer 6

用VBA,按ALT+F11打开，菜单－插入－模块－右边空白处粘贴以下代码，要导入的数据在同目录的1.xls的A、B列,然后 F5完成导入

Sub onecolumn()
Dim Sql$
Set Conn = CreateObject("Adodb.Connection")
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\1.xls"
Sql = "select f1,f2 from [sheet1$]"
Cells.Clear
[a1].CopyFromRecordset Conn.Execute(Sql)
Conn.Close
Set Conn = Nothing
End Sub