vba - 使用 Excel 修复格式问题

Question

我正在尝试通过在正确的位置插入/将长度为 5 或 6 个字符的文本字符串转换为日期。我很难做到这一点。

我试过用谷歌搜索这个，我试过使用 Cdate 或

=IF(LEN(A1)=5,DATE(RIGHT(A1,2),LEFT(A1,1),MID(A,2,2)),0)  

但是他们没有返回正确的日期，因为它假设数据已经是正确的日期。这似乎应该很简单。不使用excel很简单，你只需在2个位置输入/，它就会转换为正确的日期。

例如，我可能在 A1 中有一个文本字符串，例如:

80715
80715
80715
122515
122515
122515

我想要发生的是:

8/07/15
8/07/15
8/07/15
12/15/15
12/15/15
12/15/15

我正在考虑做的事情(如果没有更简单的解决方案)是让用户预先输入日期，然后让它填充范围，即:

Dim Input1 As Date
Input1 = InputBox("Please Enter the Date", "Input1", 0)
Range("A1").Value = Input1

但肯定有更简单的方法吗？请帮助我超越天才。

Answer 1

试试这个公式:

'仅字符串:

=LEFT(RIGHT("0"&A1,6),2) & "/" & MID(RIGHT("0"&A1,6),3,2) & "/" & RIGHT(RIGHT("0"&A1,6),2)

'as date:
=DATEVALUE(LEFT(RIGHT("0"&A1,6),2) & "/" & MID(RIGHT("0"&A1,6),3,2) & "/" & RIGHT(RIGHT("0"&A1,6),2))