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

dong130

怎么用vba提取单元格里的日期范围中的最大日期，表中举部分数据，数据庞大用ctrl加e很卡

shiruiqiang

split(单元格,"-")(1)

dong130

shiruiqiang 发表于 2024-12-21 19:37
split(单元格,"-")(1)

哈哈，这个只能去后面值，有的没有-的会报错，有的只有日，变不了为日期格式

shiruiqiang

多套套就行
就是各种判断，包括2015年

dong130

shiruiqiang 发表于 2024-12-21 20:08
多套套就行
就是各种判断，包括2015年

嗯，比如第3行要转换为日期格式，还有最后2行应该是2025年了，vba不太会，感觉套层好难

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.12.21
   
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.                     arr(i, 2) = CDate(rq)
    
18.                 Else
    
19.                     arr(i, 2) = CDate(st(1))
    
20.                 End If
    
21.             End If
    
22.         End If
    
23.     Next
    
24.     [a1].Resize(r, 2) = arr
    
25. End Sub
    

复制代码

dong130

ykcbf1100 发表于 2024-12-21 20:49
参与一下。。。

非常感谢，但是这个地方有点小错，后面月份比前面小的提取出来是下一年，如果-后没有月份的，就是跟前面月份一样

shiruiqiang

再判断后面的日期比前面小，就年份+1

dong130

shiruiqiang 发表于 2024-12-21 22:23
再判断后面的日期比前面小，就年份+1

好的，谢谢