[已解决]如何将将文本转表格

zjw · 发表于 2010-7-3 22:53

1C2WlEyK.txt (4.41 KB, 下载次数: 1)

bbwsj · 发表于 2010-7-3 23:12

如何将将文本转表格

是银行对账单吧，一般网银导出来的都会把分表符和分行符一起导出来的，粘到E表就自动对应单元格了

但如果，粘的不好，电脑有时会没认出分表符，导致行没错，而列就只有一列了

这时候，你可以用分列来把数据分入各列中如下面的动画

[此贴子已经被作者于2010-7-3 23:24:10编辑过]

abis · 发表于 2010-7-4 07:26

Sub a()

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="©¦", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 2), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Dim i As Long
For i = [a65536].End(xlUp).Row To 1 Step -1
If Cells(i, 1) Like "*©¤*" Then
   Rows(i & ":" & i).Delete
End If
Next
End Sub

给个代码测试一下。

老糊涂 · 发表于 2010-7-4 07:33

不错，这些方法很有用

aaasdfg12 · 发表于 2010-7-4 09:18

这些方法很有用

aaasdfg12 · 发表于 2010-7-4 09:18

这些方法很有用

平地三尺浪 · 发表于 2010-7-4 10:06

学习了

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