EXCEL表格数据变换

关于表格中怎么能变成表绿色的样式？？的问题

Sub 按钮1_单击()
arr = Split([a2], “、”)
Columns(2) = Empty
[b2].Resize(UBound(arr) + 1) = Application.Transpose(arr)
End Sub