时间戳

首页 > 解决方案 > 我想消除精确范围（G1）并使此文本到列代码动态以将列值转换为日期

excel - 我想消除精确范围（G1）并使此文本到列代码动态以将列值转换为日期

问题描述

    ActiveCell.EntireColumn.Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
    Selection.NumberFormat = "dd-mmm-yy"

标签： excelvbadate-formattingtext-to-column

解决方案

找到了解决办法，感谢支持，修改后的代码应该是

ActiveCell.EntireColumn.Select

Dim myRange As Range
Set myRange = Selection

myRange.TextToColumns Destination:=myRange, DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 4), TrailingMinusNumbers:=True
Selection.NumberFormat = "dd-mmm-yy"

推荐阅读