如何为特定列每4个空格添加一个逗号

Question

我有两列数据，它们的年份大约是2700行。这些数字是车辆的型号年份，每行都有多年，并在excel中显示为201220092010200820072011或科学记数法。我尝试将整个列标记为文本，但不起作用。无论如何，我希望它看起来像这个2012,2009,2010,2008,2007,2011

一些行可能只有两年，另一些行可能有5-7个不同的年份，甚至8年。我如何才能在2700行的整个列中做到这一点呢？

谢谢你们！

Answer 1

Sub Your_Solution()

Dim yearColl, newStr(), fullString As String
yearColl = Range("A1").Text
fullString = ""

ReDim newStr(Len(yearColl) - 1)
For i = 0 To Len(yearColl) - 1
    newStr(i) = Mid(yearColl, i + 1, 1)
    fullString = fullString & newStr(i)
    If i Mod 4 = 3 Then
        fullString = fullString & ","
    End If
Next

Range("A2").Value = fullString

End Sub