分離復制的單元格

Question

我正在嘗試執行將單元划分為3個不同部分的代碼。 我試圖拆分“ p”列中的日期，並在“ R：T”列中插入3個不同的部分。 但是，代碼會以某種方式僅將日期粘貼在R列中，如您在所附圖片中所見。 代碼有什么問題？

Range("Q4:Q65000").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("R4"), DataType:=xlDelimited, _
    TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
    :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
    TrailingMinusNumbers:=True

Answer 1

我認為您遇到的問題是您的代碼將日期視為長值而不是日期格式。為什么不使用Excel公式處理此問題呢？

R =DAY(Q4)

S =MONTH(Q4)

T =YEAR(Q4)

Answer 2

這樣的東西就足夠了

Dim lastRow As Long

Set lastRow = Range("Q" & Rows.Count).End(xlUp).Row

For i = 4 To lastRow

    Range("R" & i).Value = Mid(Range("Q" & i).Value, 1, 2)
    Range("S" & i).Value = Mid(Range("Q" & i).Value, 4, 2)
    Range("T" & i).Value = Mid(Range("Q" & i).Value, 7, 4)

Next i

循環瀏覽所有受影響的行，並將日期分成幾部分。

假定日期將始終采用以下格式

dd-MM-yyyy