怎么用vba提取单元格里的日期范围中的最大日期

marchwen01

dong130 发表于 2024-12-21 21:18
非常感谢，但是这个地方有点小错，后面月份比前面小的提取出来是下一年，如果-后没有月份的，就是跟前面 ...

这实现需求不是什么难事，但这样的数据就一堆垃圾啊，会了VBA咱也不能当垃圾装载车是不。必须退回重写标准日期，一列开始日期，一列结束日期。

ykcbf1100

dong130 发表于 2024-12-21 21:18
非常感谢，但是这个地方有点小错，后面月份比前面小的提取出来是下一年，如果-后没有月份的，就是跟前面 ...

代码再改一下。
其实，最重要的是要养成规范输入日期的好习惯，不然，后期数据处理会很麻烦，每次都得先清洗数据。

ykcbf1100

改一下。

1. Sub ykcbf()  '//2024.12.22
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 2)
   
4.     On Error Resume Next
   
5.     For i = 2 To UBound(arr)
   
6.         If IsDate(arr(i, 1)) = True Then
   
7.             arr(i, 2) = arr(i, 1)
   
8.         Else
   
9.             st = CStr(arr(i, 1))
   
10.             If InStr(st, "-") = 0 Then
    
11.                 If InStr(st, "日") = 0 Then rq = st & "日" Else rq = st
    
12.                 arr(i, 2) = CDate(rq)
    
13.             Else
    
14.                 st = Split(st, "-")
    
15.                 If InStr(st(1), "月") = 0 Then
    
16.                     rq = Left(st(0), InStr(st(0), "月")) & st(1)
    
17.                 Else
    
18.                     rq = st(1)
    
19.                 End If
    
20.                 If Val(st(1)) < Val(st(0)) Then
    
21.                     nf = Year(Date) + 1
    
22.                     rq1 = CDate(nf & "年" & rq)
    
23.                     arr(i, 2) = CDate(rq1)
    
24.                 Else
    
25.                     arr(i, 2) = CDate(rq)
    
26.                 End If
    
27.             End If
    
28.         End If
    
29.     Next
    
30.     [a1].Resize(r, 2) = arr
    
31. End Sub
    
32. 
    

复制代码

dong130

ykcbf1100 发表于 2024-12-22 07:43
代码再改一下。
其实，最重要的是要养成规范输入日期，不然，后期数据处理会很麻烦。

嗯嗯，非常感谢