如何选择性删除

xiaomaoning

朝露孤烟 发表于 2025-12-10 12:24
这类问题，主要是规则，规则定好了，时间点的处理就容易。

嗯嗯，就是我不知道该怎么弄

xiaomaoning

laoye5403 发表于 2025-12-10 14:33
集合加数组搞定...................................

感谢大神，就是这样，换了一组试试，效果也是正确的

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()   '//2025.12.10
   
2.     arr = [a3:ae3].Value
   
3.     ReDim brr(1 To 1, 1 To UBound(arr, 2))
   
4.     For j = 1 To UBound(arr, 2)
   
5.         If arr(1, j) <> "" Then
   
6.             xm = arr(1, j)
   
7.             brr(1, j) = ston(xm)
   
8.         End If
   
9.     Next
   
10.     [a7:ae7].Value = brr
    
11. End Sub
    
12. 
    
13. Function ston(inputStr) As String
    
14.     Dim timeList As New Collection
    
15.     Dim i As Integer
    
16.     Dim currentTime As String
    
17.     Dim prevTime As Date
    
18.     Dim currentDate As Date
    
19.     Dim result As String
    
20.     For i = 1 To Len(inputStr) Step 5
    
21.         currentTime = Mid(inputStr, i, 5)
    
22.         timeList.Add currentTime
    
23.     Next i
    
24.     If timeList.Count = 0 Then
    
25.         ston = ""
    
26.         Exit Function
    
27.     End If
    
28.     result = timeList(1)
    
29.     prevTime = CDate(timeList(1))
    
30.     For i = 2 To timeList.Count
    
31.         currentDate = CDate(timeList(i))
    
32.         If DateDiff("n", prevTime, currentDate) > 5 Then
    
33.             result = result & Chr(10) & timeList(i)
    
34.             prevTime = currentDate
    
35.         End If
    
36.     Next i
    
37.     ston = result
    
38. End Function
    

复制代码

cjc209

效果

xiaomaoning

ykcbf1100 发表于 2025-12-10 14:44
附件供参考。。。

好的，感谢大神

xiaomaoning

cjc209 发表于 2025-12-10 15:29
效果

方便发一下附件吗

laoye5403

来个纯数组解法:
1\把时间个个整理出来.
2\根据楼主的要求分组,每组一个起点一个终点,放入br数组 ,只有一个的,起点终点都是它.
3\单数取br(n,1),双数取br(n,2).