如何仅为特定列每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