强制日期单元格保留10个字符的日期(“ mm / dd / yyyy”)

时间:2018-09-12 20:55:21

标签: excel vba excel-vba

我正在从网站上刮取一些数据,该网站的一列包含日期和日期,格式为Thu 09/06/2018。我只想保留09/06/2018部分,但是无论我做什么,Excel都将日期转换为9/6/2018我需要完整的09/06/2018(不仅是格式,在编辑栏中可见),以便将数据接收到数据库中-我如何强制excel以文本形式保留这些数据?

下面是我的代码,底部是我尝试'Fix Dates

'Fix Dates
Application.CutCopyMode = False
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    For Each cell In Range("B2:B" & LastRow).Cells
        cell.NumberFormat = "@"
        cell.Offset(0, 9).Value = Right(cell.Value, 10)
    Next cell

    For Each cell In Range("K2:K" & LastRow).Cells
        cell.NumberFormat = "@"
        cell.Offset(0, -9).Value = cell.Value
    Next cell

Columns("K:K").EntireColumn.Delete

0 个答案:

没有答案