如何将数据分列导入excel

发布网友 发布时间：2022-04-22 03:29

我来回答

共5个回答

热心网友 时间：2023-09-26 03:18

在excel里，可以很轻松地为数据分列。以文本文件导入excel为例，如果文本文件里有多行数据，各行数据格式相同，很容易通过excel分列。方法如下：
1，打开excel，（直接打开excel程序）在excel里打开目标文本文件。
2，此时excel会自动启动文本导入向导。依据向导，按原文件数据类型，选择分列方式。“分隔符号”是指原数据有tab键、逗号、空格、分号或其他间隔符。“固定宽度”是指将数据按指定位数长短做分隔。然后选“下一步”。
3，如果上一步选“分隔符号”此时应指定具体符号。如果上一步选“固定宽度”，此时选择数据位数（数值长度）作为分隔依据。然后选“下一步”。
4，这一步可以指定数据格式：“常规”“文本”“日期”“不导入此列”然后点确定。
此时可以看到原数据已经按我们的需要分列显示了。

热心网友 时间：2023-09-26 03:19

可执行宏命令。
打开总表1.xlsm文件，执行宏ThisWorkbook.Macro2
代码如下：
Sub Macro2()
Dim fileDir As String '文本文件目录
Dim fileName As String '要打开的文本文件名
Dim serverNo As String
Dim serverDate As String
Dim dataSum As Long '要合并的文本记录数
Dim dataTotalOld As Long '汇总表中未合并时的记录条数

Application.ScreenUpdating = False
fileDir = ActiveWorkbook.Path & "\"
fileName = Dir(fileDir, 7)
Do While fileName <> "" And Right(fileName, 3) = "txt"
'fileName = "1 4-10.txt"
'获取服务器号和日期
serverNo = Left(fileName, InStr(1, fileName, " ") - 1) & "服"
serverDate = Mid(fileName, InStr(1, fileName, " ") + 1)
serverDate = Replace(serverDate, "-", "月")
serverDate = Replace(serverDate, ".txt", "日")

Workbooks.OpenText fileName:= _
ActiveWorkbook.Path + Application.PathSeparator & fileName, Origin:=936, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True

dataSum = Range("a65535").End(xlUp).Row
Range("A1:D" & dataSum).Select

Range("A1:D" & dataSum).Select
Selection.Copy

'总表1.xlsm为要合并后的启动宏工作表
Workbooks("总表1.xlsm").Activate

dataTotalOld = Range("a65535").End(xlUp).Row + 1
If dataTotalOld = 2 Then dataTotalOld = 1 '第一次使用
Range("C" & dataTotalOld).Select
ActiveSheet.Paste

Range("A" & dataTotalOld) = serverNo
Range("B" & dataTotalOld) = serverDate
Range("A" & dataTotalOld + 1) = serverNo
Range("B" & dataTotalOld + 1) = serverDate

Range("A" & dataTotalOld & ":B" & dataTotalOld + 1).Select
Selection.AutoFill Destination:=Range("A" & dataTotalOld & ":B" & dataTotalOld + dataSum - 1), Type:=xlFillDefault

Workbooks(fileName).Close savechanges:=False

fileName = Dir
Debug.Print fileName
Loop

Application.ScreenUpdating = True
End Sub

热心网友 时间：2023-09-26 03:19

将数据复制，粘贴到EXCEL中，选中粘贴好的数据，点击菜单“数据—分列”，按照向导一步步进行设置，分隔符号一定要选择空格。

热心网友 时间：2023-09-26 03:20

首先直接复制到EXCEL中，选择这一列 然后-数据-分列-分割符号-空格，确定
或者可以用固定宽度也行~

热心网友 时间：2023-09-26 03:20

数据分列，分隔符号为“空格”