【マクロ】複数の日付データをYYYY/MM/DDに読替えて、別ブックへ転記したい

標題の件について、以下の表にある３つのデータ（E1からE3）を

●別ブックへ転記したい
●転記する時に、20240101から2024/1/1に読替えて転記したい

現状、１つだけは読替えて、転記は出来ましたが、連続した複数セルの
転記は出来ませんでした

コード分かる方、ご指導のほど、お願いします
１から作成でも、以下コードから修正でもokです

宜しくお願い致します


【表について】

E1　日付
E2 20240101
E3 20240102
E4 20240103


※コピー元ブック　Sheet1
※文字書式：標準
※変数ws1にコピー元ブックとシートを格納


※変数W2は、コピー先ブックを格納　Sheet1。マッサラなシート



Sub 日付()

Dim filepath1 As String

Dim wb1 As Workbook

Dim ws1 As Worksheet


filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(4, 1)

Set wb1 = Workbooks.Open(filepath1)

Set ws1 = wb1.Worksheets("Sheet1")




Dim filepath2 As String

Dim wb2 As Workbook

Dim ws2 As Worksheet


filepath2 = ThisWorkbook.Worksheets("Sheet1").Cells(5, 1)

Set wb2 = Workbooks.Open(filepath2)

Set ws2 = wb2.Worksheets("Sheet1")



A = ws1.Range("e2")

B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01


MsgBox B


ws2.Range("a2") = B



End Sub

質問者からの補足コメント

• 丁寧にご指摘ありがとうございます
  参考にいたしまして、少し変えましたが、以下の
  とおり作りました
  
  何行でも、瞬時に転記できました
  順番に実行するのでスピード遅延するかとは思いましたが
  一瞬で、出来ました
  
  ありがとうございます
  
  【コード】
  
  lastrow = ws1.Cells(Rows.Count, "A").End(xlUp).Row
  
  For i = 2 To lastrow
  
  A = ws1.Cells(i, 5)
  B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
  
  ws2.Cells(i, 1) = B
  
  Next i

  No.5の回答に寄せられた補足コメントです。 補足日時：2024/11/04 21:43

No.5 ベストアンサー 回答者： ssawatake 回答日時： 2024/11/04 21:39

最終行 = WS1.Range("B65536").End(xlUp).Row

↓かな？

最終行 = WS1.Range("E65536").End(xlUp).Row

No.4 回答者： ssawatake 回答日時： 2024/11/04 18:28

No.3続き

行数が一定では無いなら最終行を取り込み、そこまでループです。

最終行 = WS1.Range("B65536").End(xlUp).Row

For 行 = 2 To 最終行

A = WS1.Range("e" & 行)
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
WS1.Range("a" & 行) = B

Next 行

No.3 回答者： ssawatake 回答日時： 2024/11/04 18:24

>>約25～100まで増えるので、効率的な方法はないかなぁと

考えています

だったら、行と言う変数を使ってループです。

例えば2行目～100行目までをループさせるなら
↓↓

For 行 = 2 To 100

A = WS1.Range("e" & 行)
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
WS1.Range("a" & 行) = B

Next 行

No.2 回答者： fujillin 回答日時： 2024/11/04 16:54

こんにちは

＞本データは、約25～100まで増えるので、効率的な方法は
＞ないかなぁと考えています
同じ（ような）処理を繰り返す場合は、通常は「ループ」といわれる「繰り返し処理」を利用します。
https://youseful.jp/microsoft/excel/vba-for-loop/
https://www.sejuku.net/blog/69026

可変部分（例えば、行番号など）を変数化しておいて、その部分を制御するようにすれば良いでしょう。

この回答へのお礼

アドバイスありがとうございます
ループステートメントですね

検証してみます

お礼日時：2024/11/04 17:04

No.1 回答者： ssawatake 回答日時： 2024/11/04 15:11

A = ws1.Range("e2")

B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
ws2.Range("a2") = B

たった3セルなんですから、上をあと2セット書けば良いです。

A = ws1.Range("e1")
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
ws2.Range("a1") = B

A = ws1.Range("e3")
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
ws2.Range("a3") = B

この回答へのお礼

お返事ありがとうございます

すいません、簡単にはかいたのですが
本データは、約25～100まで増えるので、効率的な方法はないかなぁと
考えています

ご指導ありましたら、宜しくお願い致します！

お礼日時：2024/11/04 15:22