vba统一日期格式

lpzxhjp · 发表于 2013-11-3 22:38

zhaogang1960 发表于 2013-11-3 19:17
请看附件

赵老师，你好！测试中出现了个问题：当A列只有一个单元格不为空时，“For i = 1 To UBound(arr)
”会报错，怎么办呢？

zhaogang1960 · 发表于 2013-11-3 22:44

lpzxhjp 发表于 2013-11-3 22:38
赵老师，你好！测试中出现了个问题：当A列只有一个单元格不为空时，“For i = 1 To UBound(arr)
”会报错 ...

要保证至少有一个单元格有值，否则可又要出错了：

Sub Macro1()
Dim arr, i&, s$
arr = Range("A5:A" & Range("A65536").End(xlUp).Row + 1)
With CreateObject("VBScript.RegExp")
.Pattern = "\D"
.Global = True
.IgnoreCase = False
For i = 1 To UBound(arr) - 1
s = .Replace(arr(i, 1), "-")
If IsNumeric(s) Then
arr(i, 1) = Application.Text(s, "0000-00-00")
Else
arr(i, 1) = CDate(s)
End If
Next
End With
With [b5].Resize(i - 1)
.Value = arr
.NumberFormatLocal = "yyyy-mm-dd"
End With
End Sub

复制代码

zhaogang1960 · 发表于 2013-11-3 22:46

请看附件

信息表可只有一个单元格有值.rar (14.41 KB, 下载次数: 31)

leitong · 发表于 2013-11-3 23:38

zhaogang1960 发表于 2013-11-3 22:46
请看附件

能否麻烦加下注释，VBScript.RegExp，主要是用来处理哪些事宜？还请赐教。

zhaogang1960 · 发表于 2013-11-4 00:12

leitong 发表于 2013-11-3 23:38
能否麻烦加下注释，VBScript.RegExp，主要是用来处理哪些事宜？还请赐教。

我所知道的正则表达式仅用来处理字符串，提取或替换某类字符串

清风幽闲 · 发表于 2013-11-4 08:05

Sub g()
Set reg = CreateObject("vbscript.regexp")
Dim rng As Range
reg.Global = True
reg.Pattern = "\d+"
For Each rng In Range(Cells(5, 1), Cells(Rows.Count, 1).End(3))
Set k = reg.Execute(rng)
If k.Count = 2 Then
      rng.Offset(, 1) = DateSerial(k(0), k(1), 1)
ElseIf k.Count = 3 Then
      rng.Offset(, 1) = DateSerial(k(0), k(1), k(2))
ElseIf k.Count = 1 Then
      rng.Offset(, 1) = DateSerial(Left(k(0), 4), Mid(k(0), 5, 2), Mid(k(0), 7, 2))
End If
Next rng
End Sub

lpzxhjp · 发表于 2013-11-4 08:16

清风幽闲发表于 2013-11-4 08:05
Sub g()
Set reg = CreateObject("vbscript.regexp")
Dim rng As Range

谢谢，不过也出错

lpzxhjp · 发表于 2013-11-4 08:18

jbjbzjb 发表于 2013-11-3 21:14
附件表格整得是乱七八糟!!

谢谢，不过只有一个单元格有值时会报错

清风幽闲 · 发表于 2013-11-4 08:19

lpzxhjp 发表于 2013-11-4 08:16
谢谢，不过也出错

错在何处？

lpzxhjp · 发表于 2013-11-4 09:22

清风幽闲发表于 2013-11-4 08:19
错在何处？

像值为201368的单元格出现时

		自动登录	找回密码
密码			免费注册

[求助] vba统一日期格式