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

大家好，我的社区

您如何实现一个宏来执行以下操作

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

至-->

简言之： 到达第一个空格时从列中拆分文本。（无论后面有多少空格） Keeo只是这个牢房的第一部分。 将第二部分复制到右侧的单元格

---

致以最诚挚的问候

不需要VBA。在B1单元中：

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

在单元B2中：

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

将公式向下拖动到所需的位置

---

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

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

---

您可以使用

Left

和

Mid

功能来执行此操作。

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