Excel VBA-在CHAR（10）之后在左側復制並粘貼文本

Question

如果滿足以下條件：

A1 = fsfsdfsdfs

qewqeqewqe

B1 = RIGHT（A1，FIND（CHAR（10），A1＆“”））

然后，B1將顯示“ qewqeqewqe”。

這僅可直接用於excel單元格。 鑒於上述以下情況，我將如何編寫此行代碼？

像下面這樣？

Worksheets("sheet1").Cells(1,2).value= left(find(CHR(10), Worksheets("sheet1").Cells(1,1),&""))?????

我不會問我是否沒有搜索它。 我一直發現的是如何在excel文件而不是VBA中進行操作。 任何幫助將不勝感激。 謝謝！

Sub test()

Dim txt As String
Dim fullname As String

txt = Worksheets("Sheet1").Cells(1, 1).Value
fullname = Split(txt, Chr(10))

Worksheets("Sheet1").Cells(1, 2).Value = fullname

End Sub

Answer 1

這應該做

Sub Button1_Click()
    Dim rng As Range
    Dim i As Integer
    Dim Orig As Variant
    Dim txt As String

    Set rng = Range("A1")

    txt = rng.Value

    Orig = Split(txt, Chr(10))

    For i = 0 To UBound(Orig)
        Cells(1, i + 1) = Orig(i)
    Next i

End Sub

檢查一下， http://www.xlorate.com/vba-examples.html#Split%20Cells