vba - 日付 dd-mm-yyyy の値を YYYYMMDD のテキストに変換します

Question

以下の日付フィールド (dd-mm-yyyy) を YYYYMMDD 形式に変換する必要があります。

Column A     Column B
30.08.2013    
25.08.2012

等々

列Bで、私は答えが欲しい

Column B
20130830 
20120825

形式はテキスト形式、つまりtext(date,"YYYYMMDD"). 範囲 B は、範囲 A に値が入るまで続行されます。

誰かが正しいコードを取得するのを手伝ってくれますか?

Answer 1

セル内数式はそのように記述でき、列 A にデータが表示されるまで数式を下にコピーできます。

=RIGHT(A1,4) & LEFT(RIGHT(A1,7),2) & LEFT(A1, 2)

VBA マクロは次のようになります。

Sub ConvertDate()
    Range("B1").Value = Right(Range("A1").Value, 4) & _
                        Left(Right(Range("A1").Value, 7), 2) & _
                        Left(Range("A1").Value, 2)
End Sub

マクロが列 B の日付を自動的にフォーマットするように、ニーズに合わせてコードを変更できます。マクロを使用するよりも数式を使用する方がはるかに簡単です。