如何在转置时转置单元格和移动行

Question

我有一个超过5000行的Excel工作表。 F列包含单个数字或多个以逗号分隔的数字。我需要移置其中有多个数字的单元格，同时向下移动行。 因此，我还需要遍历该列。我想出了如何做转置一个单元格，但其余的太多了。 谢谢您的帮助。

sText = Range("A1").Value
arText = Split(sText, ",")
Range("A1:A" & CStr(1 + UBound(arText))).Value = WorksheetFunction.Transpose(arText)

从此：

对此：