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