|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
'假设A列有序,凑了一个,,,
Option Explicit
Sub test()
Dim arr, i, p, m, n
arr = Range("a1:a" & [a1].End(xlDown).Row + 1)
For i = 1 To UBound(arr, 1) - 1
If arr(i + 1, 1) - arr(i, 1) <> 1 Or i = UBound(arr, 1) - 1 Then
m = m + 1: n = arr(i, 1) - arr(p + 1, 1) + 1
If n = 1 Then
arr(m, 1) = arr(p + 1, 1) & "(" & n & "天)"
Else
arr(m, 1) = arr(p + 1, 1) & "-" & arr(i, 1) & "(" & n & "天)"
End If
p = i
End If
Next
With [d1]
.Resize(Rows.Count).ClearContents
If m > 0 Then .Resize(m) = arr
End With
End Sub |
评分
-
2
查看全部评分
-
|