我想消除计算范围（G1），并使此Text为动态列代码以将列值转换为日期

Question

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”

Answer 1

就地TextToColumns

这将替换选择的值。

Option Explicit

Sub TTC()
    Dim rng As Range
    Set rng = Selection
    rng.TextToColumns Destination:=rng.Cells(1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
    rng.NumberFormat = "dd-mmm-yy"
End Sub

[如果您不想更换，则例如如果要将结果复制到下一列，则可以将rng.Cells(1)替换为rng.cells(1).Offset(, 1)。