如何分隔字符串中的数据,其中分隔符有时不是分隔符?

时间:2017-11-29 10:13:58

标签: excel vba excel-vba

姓名

Anita sabarval 90 Female Nagpur / matheran 17/9 2.0 M是
Prabhal jjitu 70男性Ista / lonavla 8/9 7M没有

这是Excel中每行一个单元格中的数据。

The data format

 Name          age  type     loc             date     sal   given
Anita sabarval  90  Female  Nagpur/matheran 17/9      2m    Yes
Prabhal jjitu   70  Male    sta/lonavla     8/9/201   7M    no

每行不同单元格中的所需输出。

desired o/p

Note:  
The two part name with space between remains together in one cell  
2.0 M with space between remains together in one cell

到目前为止我的尝试:

Sub ExampleSplit1()
    Selection.TextToColumns _
        Destination:=Range("A2"), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, _
        Tab:=True, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=False, _
        Other:=True, _
        OtherChar:="-"
End Sub

I/p

Desired o/p

1 个答案:

答案 0 :(得分:0)

这里:

以单元格A4为例,

$lang->load('index');

这会像这样分开:

ttc-example

附加信息:

  

2 M 输入