导入分隔符之后，在前面插一列，例如插入A列是空白的，从B列开始到后面都是导入后的数据
然后又在A列（例如A1）写公式：
=OFFSET($A1,0,COUNTA($A1IV1)-1)

详见附件

引用:

原帖由 ofanjx 于 2011-11-7 20:27 发表
用两个函数吧，先获取每一行的字段数，然后抓取

这个是可以直接用的函数，但是江湖救急的话就有点太overkill了

'------------------------- UDF that helps to extract nth string out of
'If "n" is missing, the output will be the number of values in the CSV string
'Delimiter symbol is default to ","
'20091215, Changing the parameter to be able to nesting the UDF
'Public Function CSV(ByRef rRange As Range, Optional ByVal n As Variant, Optional ByVal strDelimiter As Variant) As Variant
Public Function DSV(ByVal rRange As Variant, Optional ByVal N As Variant, Optional ByVal strDelimiter As Variant) As Variant
    'Using "," as default de-limitator
    If IsMissing(strDelimiter) Then strDelimiter = ","
   
    Dim x As Variant
    Dim vResult As Variant
   
    'Cast the input to string type before proceeding
    x = Split(rRange, strDelimiter)
   
    On Error Resume Next
    If IsMissing(N) Then
        vResult = UBound(x) + 1
    Else
        vResult = x(N - 1) 'Because split() returns an array whose index staring from 0
        If Err <> 0 Then vResult = "Error"
        'If Err <> 0 Then vResult = rRange.Cells(1, 1)
        On Error GoTo 0
        
    End If
    DSV = vResult
End Function

posted by wap, platform: Nokia (6120)

引用:

原帖由 @hudihutian  于 2011-11-8 16:44 发表
你们在搞笑吧

选那一列，查找替换，把*;替换为什么都没有即可

excel 2010按lz的例子通过

好方法啊，学习啦