[已解决]规范日期格式

today0427

看看是否符合你的要求。

cunfu2010

today0427 发表于 2017-1-17 00:06
看看是否符合你的要求。

我在提示中加入了源目标，但实现不了源目标循环，如何解决？谢谢。
A1和A628单元格内容相同（实际中这种情况很容易出现）

grf1973

应today要求改动了一下。

1. Sub grf()
   
2.     arr = Range("a1").CurrentRegion
   
3.     For i = 1 To UBound(arr)
   
4.         x = arr(i, 1)
   
5.         If Len(x) = 5 Then
   
6.             arr(i, 1) = Format(x, "yyyymm")
   
7.         Else
   
8.             x = Replace(x, "/", "-")
   
9.             p = InStr(x, "-")
   
10.             If p > 0 Then
    
11.                 arr(i, 1) = Format(Split(x, "-")(0), "0000") & Format(Split(x, "-")(1), "00")
    
12.             ElseIf Len(x) > 5 Then
    
13.                 y = Val(Mid(x, 5, 2))
    
14.                 s1 = Left(x, 4) & "0" & Mid(x, 5, 1)
    
15.                 s2 = Left(x, 6)
    
16.                 If y > 12 Then
    
17.                     arr(i, 1) = s1
    
18.                 Else
    
19.                     If Len(x) = 6 Or Len(x) = 8 Then
    
20.                         arr(i, 1) = s2
    
21.                     Else
    
22.                         yn = MsgBox("请依据源目标" & "A" & i & "=" & arr(i, 1) & "选择结果" & vbCrLf & vbCrLf & _
    
23.                            "是(Y)： " & s1 & vbCrLf & vbCrLf & _
    
24.                            "否(N)： " & s2, vbYesNo, "提示")
    
25.                         arr(i, 1) = IIf(yn = vbYes, s1, s2)
    
26.                     End If
    
27.                 End If
    
28.             End If
    
29.         End If
    
30.     Next
    
31.     Columns("e:e").Clear
    
32.     Range("e1").Resize(UBound(arr)) = arr
    
33. End Sub

复制代码

cunfu2010

grf1973 发表于 2017-1-18 13:46
应today要求改动了一下。

回复晚了，不好意思，十分感谢！

苏子龙

那日期是1980111是1980-01-11还是1980-11-01？数据不规范，是硬伤

cunfu2010

苏子龙 发表于 2017-1-19 10:56
那日期是1980111是1980-01-11还是1980-11-01？数据不规范，是硬伤

谢谢关注，这种情况会通过提示框手动确定。