Excel如果单元格有多行，则将行从单元格移动到另一行

Question

我正在尝试编写一个VBA代码，用于将内容从一列移动到另一列。

条件是如果单元格有多行，则保留行号1并将剩余行移动到另一列。

请帮助解决这个问题。

Answer 1

这里有一些代码可以帮助您入门

Option Explicit

Sub test()

    Range("b4:f4").Clear                           ' sample data
    Range("b4") = "this" & vbCrLf & "is" & vbCrLf & "a" & vbCrLf & "test"

    Dim aaa As String
    aaa = Range("b4").Value

    Dim bbb As Variant
    bbb = Split(aaa, vbCrLf)                       ' split string into an array

    Range("c4").Resize(1, UBound(bbb) + 1) = bbb

End Sub