sheet間での転記エラー

下記コードでsheet1からsheet2へ転記しております。

-----------------
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")

’シートを指定してデータを転記
ws2.Range("A10:A249").Value = ws1.Range("A4:A249").Value →①半角英数字
ws2.Range("B10:B249").Value = ws1.Range("C4:C249").Value →②全角漢字
ws2.Range("U10:U249").Value = ws1.Range("D4:D249").Value →③半角数字（4から始まる3桁）
ws2.Range("Y10:U249").Value = ws1.Range("E4:E249").Value →④COUNTIFS関数からの半角数字
-----------------

転記先で①②③は正常に転記されますが③が1桁の数字に置き換わてしまいます。
※文字列は標準
転記のコードを③だけにすると正常に転記されます。
考えられる原因はありますでしょうか？？

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/03/03 08:50

＞③が1桁の数字に置き換わてしまいます。

多分④だとして。

まず
・ws1.Range("E4:E249").Value
ここの範囲の数値に置き換わると仮定できるのであれば、その理由としては

＞ws2.Range("U10:U249").Value =
＞ws2.Range("Y10:U249").Value =

ここでセルＵ１０～Ｕ２４９の範囲がダブってますよね？
これは狙っての事なのか実は後者が Y10:Y249 が本当の範囲なのか？

この回答へのお礼

恥ずかしながら完全なミスです。(-_-;)

修正し問題なく作動致しました。
ご指摘ありがとうございました。

お礼日時：2021/03/03 10:19