VBA数组复制粘贴问题

养小人鱼的眼 · 2021-11-24 16:14:00

如图使用VBA将数据存入数组后，再粘贴时，Donumber(DE) 此列不再保留原来的文本格式，帮忙看看如何解决，谢谢代码重点在此行
.Range("a2").Resize(UBound(brr, 1), UBound(brr, 2)) = brr

OPS.rar (16.12 KB, 下载次数: 12)

大贲 · 2021-12-23 03:14:25

在前面加一句 .Range("a2").Resize(UBound(brr, 1), UBound(brr, 2)).Numberformatlocal="@" 这样试试

南海一扬 · 2022-1-22 22:08:12

那是因为单元格格式问题

鱼人记忆 · 2022-2-10 04:17:34

非常感谢

		自动登录	找回密码
密码			立即注册