将文本从一个单元格拆分为两个单元格

Question

您好stackoverflow社区，

你将如何实现一个可以执行以下操作的宏

A1 "Textcontent 1Information"  B1
A2 "Textcontent 2Information"  B2    
A3 "Textcontent 3Information"  B2

到 - ＆gt;

A1 "Textcontent" B1 "1Information"
A2 "Textcontent" B2 "2Information"   
A3 "Textcontent" B3 "3Information"

用语言说： 到达第一个空白/空格时从列中拆分文本。 （无论下面有多少个空格） Keeo只是这个细胞的第一部分。 将第二部分复制到右侧的单元格

祝你好运

Answer 1

不需要VBA。在单元格B1中：

=LEFT(A1,FIND(" ",A1,1))

在单元格B2中：

=TRIM(RIGHT(A1,LEN(A1)-LEN(B1)))

根据需要拖动公式。

Answer 2

选择您要处理并运行的单元格：

Sub ParseText()
    Dim r As Range, t As String, i As Long
    For Each r In Selection
        t = r.Text
        i = InStr(1, t, " ")
        If i > 0 Then
            r.Value = Mid(t, 1, i - 1)
            r.Offset(0, 1).Value = Mid(t, i + 1)
        End If
    Next r
End Sub