所需的vba对象，同时将值转换为date

我试图通过使用VBA将值转换为date，当执行的代码，它显示的消息

所需对象

我想要的结果是：

代码如下：

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 

我找不出什么问题，请你提出一些build议？ 非常感谢你。

Answer 1

错误是：

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

该值没有Numberformat。 Numberformat是单元格的属性（它是一个Range ，范围有一个.Numberformat ）

所以应该是：

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