VBAの文字列抽出について

Question

Sub month_day()

 Dim i As Long
 i = 2
 Dim p As Long
 p = 2
 Dim ws As Worksheet

Set ws = Worksheets("Sheet1")
With ws

   Do Until Cells(i, 2) = ""
    Cells(i, 3).Value = Right(Format(Cells(p, 3)), 4)
        i = i + 1
        p = p + 1
   Loop
 End With

End Sub

生年月日の月日のみ抽出したいです。
4桁で抽出したいのですが最初が0だとうまく抽出できずに3桁で抽出されてしまいます。
ネストして修正できるかとも思いましたが何かほかの処理が必要でしょうか？
よろしくお願いします。

Answer 1

「4桁で抽出したい」というのが、例えば 2021/02/18 なら、0218 としたいということでしょうか。

だとしたら、下記でいいかと。

Cells(i, 3).Value = Format(Cells(p, 3,"mmdd")

ただ、セルの書式設定を「文字列」にしておくか、ユーザー定義で「0000」と設定しておく必要があります。

Answer 2

セルの表示形式が標準だと先頭0を削除するため表示形式を事前に文字列にすればなくなりません。

Cells(i, 3).NumberFormatLocal = "@"
Cells(i, 3).Value = Right(Format(Cells(p, 3)), 4)

Comments

[suukun]

ありがとうございます。解決できました。