Question

所以我尝试了多种不同的方法来检查并查看celll中的值是否有日期，如果是，则以日期格式返回日期，而不是通常与它关联的整数excel。但是，我尝试了许多不同的apporaches，仍然将数字作为输出而不是日期格式

这是我最新的演绎，有人想指出我错在哪里吗？

Set rRng = sheet.Range("a1:a2500")
For Each rCell In rRng.Cells
If IsDate(rCell) Then
    rCell = Format(Date, "mm/dd/yyyy")
    wsO.Cells(wsO.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = rCell
Else
    wsO.Cells(wsO.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = rCell
End If

Answer 1

这完美无缺！

    For j = 1 To numrows - 1
       erow = Cells(Rows.count, 10 + j).End(xlUp).Row
       totalMins = Cells(erow, 10 + j)
       MsgBox (totalMins)
       Cells(20, 20) =Range(Cells(erow, 10 + j), Cells(erow, 10 + j).End(xlUp))
       Range(Cells(erow, 10 + j), Cells(erow, 10 + j).End(xlUp)).ClearContents
    Next

CDate诀窍:)）

VBA返回整数而不是日期格式

1 个答案: