用VBA提取以顿号为分隔符的单元格中内容，且分隔后保持原格式

千江水

见附件吧~~~ 我说的好迷糊绕嘴（如标题）、
A1单元格中的字符长度无规律，但都是以顿号分隔的，分割后的格式是文本格式。我用以下代码执行，分隔后如“07-01”变成了“7月1日”，如何才能保持原格式“07-01”？
Sub test()
Dim arr() As String
arr = Split([A1], "、")
Range("b1").Resize(UBound(arr) + 1, 1) = Application.WorksheetFunction.Transpose(arr)
End Sub

huang1314wei

我来帮你顶一下，不用谢

Ronaldo09

你把B列 设置成文本格式 好像可以的