将值转换为日期时需要 vba 对象

Question

我正在尝试使用 VBA 将值转换为日期，当执行代码时，它显示了消息

Object Required

我想要的结果是:


代码如下:

Dim wb2 As Workbook
Dim wsw As Worksheet
Dim destsheetName As String
destsheetName = "Worksheet"
Set wb2 = ThisWorkbook
Set wsw = wb2.Sheets(destsheetName)
ConvertToDate2


Sub ConvertToDate2()
Dim lastrowB As Integer
lastrowB = wsw.Cells(wsw.Rows.Count, "B").End(xlUp).Row
For i = 5380 To lastrowB
If wsw.Cells(i, 2).Value <> "" Then
wsw.Cells(i, 2).Value.NumberFormat = "dd-mm-yyyy"
End If
End Sub

我无法弄清楚是什么问题，请您提供任何建议吗？非常感谢。

Answer 1

错误是:

wsw.Cells(i, 2).Value.NumberFormat = "dd-mm-yyyy"

该值没有数字格式。 Numberformat是单元格的属性(它是 Range ，并且范围有 .Numberformat )

所以它应该是:

wsw.Cells(i, 2).NumberFormat = "dd/mm/yyyy"