将单个单元格拆分为多个单元格

Question

是否可以实现如上面的屏幕快照所示？因此，在第一个屏幕截图中，数据全部在单元格A1中，并带有换行符。我希望它分解并遵循屏幕截图2中所示的格式吗？任何帮助将不胜感激...谢谢！

Answer 1

使用换行符将字符串拆分为Variant，该数组成为一个数组。 遍历数组，并使用数组的当前位置填充列：

Sub splitter()
Dim x As Variant
Dim i As Long
    x = Split(Range("A1").Value2, vbLf)
    For i = LBound(x) To UBound(x)
        Cells(1, i + 1).Value2 = x(i)
    Next i
End Sub

Answer 2

正如JvdV在他的评论中提到的那样，您不需要为此循环

hashCode()