VBA 将日期格式的单元格赋值到数组中，粘贴到其他表格的时候变数字

求教，现有表1的A1：C3的数所为
17-Dec-2018 2018092603000030 6.8985999998
17-Dec-2018 2018092603000031 6.8985999999
17-Dec-2018 2018092603000032 6.8985999997
现将其装入数组arr中，然后粘贴到表2的起始为A1的单元格中，操作过程为arr = sheets(1).range("A1:C3")
sheets(2).range(A1).resize(3,3) = arr
粘贴过去之后发现，原先的日期格式变成了数字43451，原先的长数字变成了科学计数法2.01809E+15，原先10位的小数只显示6位了6.89859，请教，如何原封不动的将数据粘贴过去呢？
一定要用数组赋值的方法

举报该问题

其他回答

第1个回答 2019-02-16

先把粘贴的目标单元格区域设置成文本格式，再粘贴就行了。或者在每个值前面加英文单引号。我处理过一样的问题。不会写的vba自已录制个宏看看代码。本回答被网友采纳

第2个回答 2019-02-16

vba中可以直接更改格式，参见

网页链接

本回答被提问者采纳

第3个回答 2019-02-16

.网盘最好感谢！

相似回答

vba为什么日期型单元格数据写到数组中变成数字型数据了?答：日期型数据本身就是数值型数据，它表示的是距离1899年12月31日的天数。其中小数部分表示的是时/分/秒除以 86400s/天得到的结果。

VBA中怎样把行里数据根据某一条件写到另一张表对应的列中?答：有很多方法。写起来最简单的放到是复制粘贴或者直接赋值，声明一个变量作为自变量作为写入目标的行号。核心是判断，用if语句判断是否符合条件，符合条件的处理。也可以先从数据源表先读取数据到字典或者数组，然后再依次写入。我习惯于用字典，速度比较快。其次是数组。需要注意的是，Mac系统在用VBA时不支持...

vba数组怎么赋值?答：vbamyArray(1)=1myArray(2)=2'...以此类推，直到myArray(10)=10最后，保存并关闭VBA编辑器，回到Excel界面。返回到你之前设置的按钮，点击它，程序将自动运行并显示你为数组赋值的结果。确认单元格中显示了你预期的数值，就说明数组赋值成功了。

如何用VBA编程实现将满足条件的数据填充到另一个指定的表格中?答：看不出难度呀，单元格是一对一的复制，表1的B-F列右移一下到表2的C-G列，8节课在2-3、4-5之间添加一个空行，要求就是这样吗，解决此问题用公式最好，如果作为学VBA的例子，主要是练习数组使用、FOR循环使用。代码可以这样：dim arr1,arr2,i,j,t arr1=sheets("表1").range("a1:f10")...

大家正在搜

将单元格数据赋值给数组数组某一列赋值给到单元格 VBA对零散的单元格赋值 VBA的Word单元格赋值将单元格变成数组 vba数组赋值给单元格区域 vba将单元格赋给数组单元格日期格式改不了 Excel表格给数组赋值