Excel论坛用于将文本转换为date，date和时间

我列有填充下面的文本数据

Sun Aug 30 23:49:00 IST 2015 

我需要分成三列：

1. 时间“23:49:00”
2. date“2015年8月30日”和
3. 日“太阳”。

Answer 1

你可以在没有macros的情况下做到这一点，但是如果需要macros作为更大努力的一部分，那么：

 Sub dural() Dim v As String, r As Range For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange) v = r.Value If v <> "" Then ary = Split(v, " ") r.Offset(0, 1) = ary(3) r.Offset(0, 2) = ary(1) & " " & ary(2) & " " & ary(5) r.Offset(0, 3) = ary(0) End If Next r End Sub 

该代码可以适应您的列select。

Answer 2

如果您尝试读取的date位于单元格A1中，则以下三个公式将起作用：

天

 =LEFT(A1, 3) 

date

 =TRIM(MID(A1, 5, 6)) & RIGHT(A1, 5) 

时间

 =TRIM(MID(A1, 11, 9))