急，在线等！EXCEL问题！

2024-12-16 19:23:00

推荐回答（6个）

回答1：

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

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

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

回答2：

发送到lfspecter@163.com

加QQ1201573

回答3：

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

回答4：

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

回答5：

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

回答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