将位于单元格中的逗号分隔字符串分隔为列

Question

我在aad,adaa,,dadae,,,eresa,,baaa的单元格A1中有逗号分隔的字符串（Sheet1），我希望将其拆分并在列中插入值，例如：

aad
adaa

dadae


eresa

baaa

空值将跳过单元格并在下一个单元格中插入字符串。

我能够将字符串分隔成一行，但我怎么能把它分隔成一列呢？

以下是将字符串拆分为行的行：

Sheets("Sheet1").Range("A1").TextToColumns

Answer 1

分割为列后调用WorksheetFunction.Transpose()。

无需使用TextToColumns，Split就足够了：

Range("A1:A9").value = WorksheetFunction.Transpose(Split("aad,adaa,,dadae,,,eresa,,baaa", ","))