使用VBA excel 2010使文本更新列发生

我已经尝试创build一个macros，自动格式化列值以更改date和时间到目前为止，但是，当macros运行时单元格值不会自动更新。

我目前需要使用VBA for excel 2010进行以下functionselect。

数据/文本到列/下一个button（保持默认“分隔”）/下一个button（保持默认“选项卡”）/下一个button（保持默认的“常规”/完成button

我曾尝试录制function，但VBA不起作用。 HELPPPPPPPPPPPPPPPPPPPPP !!!!!

这是我的代码到目前为止。

'Autochange_Extractdata_Date_Formatmacros'表（“数据提取”）

Columns("AK:AK").Select Selection.NumberFormat = "m/d/yyyy" Columns("AK:AK").Select Selection.TextToColumns Destination:=Range("AK1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True 

结束小组

Answer 1

从你描述的症状来看，这听起来像你的领域最初是在文本格式，这就是为什么改变它为数字格式不会做任何事情。 点击进入单元格时，会自动将其转换为数字。

尝试这个

 Columns("AK:AK").NumberFormat = "m/d/yyyy" Columns("AK:AK").Value = Columns("AK:AK").Value '//This will convert each properly Columns("AK:AK").Select Selection.TextToColumns Destination:=Range("AK1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True 

Answer 2

因为我无法解决如何更新单元格值我设法使用此代码更改单元格的值，而不是date时间只是date。

作品一种享受！

'Autochange_Extractdata_Date_Formatmacros

 Sheets("Data Extract").Select Columns("AK:AK").Select Selection.NumberFormat = "m/d/yyyy" Range("AK4:AK999999").Select Dim c As Range For Each c In Selection Dim v As String v = c.value If c.value <> Empty Then c.value = DateValue(c.value) Else Exit For End If Next Range("A1").Select 

结束小组