Question

我的excel中有一个列，格式如下：

Column A
100 Test A
200 Test B
300 Test C

我想打开excel并将数字和文本分成两列，例如：

Column A    Column B
100         Test A
200         Test B
300         Test C

任何人都可以帮我这个。

Answer 1

我认为你过分复杂：

Option Explicit
Sub SplitCells()
Dim totRange As Range
Dim r As Range
Dim splitted() As String

Set totRange = Range("A1:A3")
For Each r In totRange
  splitted = Split(r.Value, " ")
  r.Value = splitted(0)
  r.Offset(0, 1).Value = splitted(1) & " " & splitted(2)
 Next r
End Sub

Answer 2

非VBA选项

对于B栏

=--left(A1,find(" ",A1)-1)

和C列

=right(A1,len(A1)-find(" ",A1))

根据需要复制它们。如果由于某种原因您希望将数字保留为文本而不是转换为数字，请从第一个等式中删除 - 。将数字作为文本转换为数字的其他一些方法在等式的末尾是+0或* 1。基本上将数字作为文本通过数学运算，excel将其转换为数字。

Answer 3

感谢所有帮助。我有一个解决方案，几乎没有。

Private Sub SplitData()  
    Dim sourceSheetName As String
    Dim sourceSheet As Worksheet
    Dim lastRow As Long
    Dim uboundMax As Integer
    Dim result

    On Error GoTo SplitterErr
    sourceSheetName = "TestSheet"
    If sourceSheetName = "" Then _
        Exit Sub

    Set sourceSheet = Worksheets(sourceSheetName)

    With sourceSheet
        lastRow = .Range(sourceColumnName & .Rows.Count).End(xlUp).Row
        result = SplittedValues(data:=.Range(.Cells(1, sourceColumnName), _
                                             .Cells(lastRow, sourceColumnName)), _
                                partsMaxLenght:=uboundMax)

        If Not IsEmpty(result) Then
            .Range(.Cells(1, sourceColumnName), _
                   .Cells(lastRow, uboundMax)).value = result
        End If
    End With

SplitterErr:
    If Err.Number <> 0 Then _
        MsgBox Err.Description, vbCritical
End Sub

Private Function SplittedValues( _
    data As Range, _
    ByRef partsMaxLenght As Integer) As Variant

    Dim r As Integer
    Dim parts As Variant
    Dim values As Variant
    Dim value As Variant
    Dim splitted As Variant

    If Not IsArray(data) Then
        ' data consists of one cell only
        ReDim values(1 To 1, 1 To 1)
        values(1, 1) = data.value
    Else
        values = data.value
    End If

    ReDim splitted(LBound(values) To UBound(values))

    For r = LBound(values) To UBound(values)

        value = values(r, 1)
        If IsEmpty(value) Then
            GoTo continue
        End If

        ' Split always returns zero based array so parts is zero based array
        parts = VBA.Split(value, delimiter)
        splitted(r) = parts

        If UBound(parts) + 1 > partsMaxLenght Then
            partsMaxLenght = UBound(parts) + 1
        End If

continue:
    Next r

    If partsMaxLenght = 0 Then
        Exit Function
    End If

    Dim matrix As Variant
    Dim c As Integer
    ReDim matrix(LBound(splitted) To UBound(splitted), _
                 LBound(splitted) To partsMaxLenght)

    For r = LBound(splitted) To UBound(splitted)
        parts = splitted(r)
        For c = 0 To UBound(parts)
            matrix(r, c + 1) = parts(c)
        Next c
    Next r

    SplittedValues = matrix


End Function

但这段代码的输出如下：

Column A    Column B  Column C
100         Test      A
200         Test      B
300         Test      C

所以我还在努力。如果有问题，请告诉我。感谢

Answer 4

根据Tim Williams的建议，Split函数可能是最好的。如果您不想使用VBA，可以尝试使用内置函数Text to Columns。根据分隔符等，这将产生3列：

拆分excel vba中的数字和文本

4 个答案: