部分连续数字分组统计

Lemoda001

您好~我想请教一下，比如我想把下图中A列的数据按连续部分分段统计，把每段的起止放在B列，请问用VBA应该怎么编写？

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, n, i, s, brr()
  arr = Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row + 1)
  s = arr(1, 1)
  For i = 2 To UBound(arr, 1)
    If arr(i, 1) - arr(i - 1, 1) <> 1 Then
      n = n + 1
      ReDim Preserve brr(1 To n)
      brr(n) = s & "-" & arr(i - 1, 1)
      s = arr(i, 1)
    End If
  Next
  MsgBox Join(brr, vbNewLine)
End Sub

Lemoda001

一把小刀闯天下 发表于 2018-8-10 13:51
Option Explicit

Sub test()

谢谢老师~！感觉数组好复杂，头都晕了。