设定自动排序条件

沧浪楚材

刚入门小白一枚，最近遇到一个问题无法解决，问题是这样的在表格中输入A0101,然后排序至A0108，下一个数字则为A0201,以此类推，总共23组，每组8个，每当最后一个数字为8时，第三个数字进一位，想用VBA做，请哪位大神帮帮忙，谢谢，大概样子如图，

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, m, n
  ReDim arr(1 To 23 * 8, 1 To 1) As String
  n = 100
  For i = 1 To UBound(arr, 1)
    m = m + 1
    arr(i, 1) = "A" & Format(n + m, "0000")
    If m = 8 Then n = n + 100: m = 0
  Next
  [a1].Resize(UBound(arr, 1)) = arr
End Sub

网海遨游

Sub aa()
        Dim i%
        For i = 1 To 160
                Cells(i, 1) = "A0" & Application.RoundUp(i / 8, 0) & "0" & IIf(i Mod 8 = 0, 8, i Mod 8)
        Next i
End Sub