如何操作使返回数据字体格式和数据源字体格式一样呢？

作者：绿色风分类：时间：2022-08-18 浏览：138

楼主
传递

Q:如何操作使返回数据字体格式和数据源字体格式一样呢？
A:通过VBA 不但能是数字格式一样，文本格式也能保持查询后和数据源一样。
效果如下图：

代码如下：

Sub test()
Dim d, arr, i&
Set d = CreateObject("scripting.dictionary")
arr = Range("a1:a" & [a65536].End(3).Row)
For i = 2 To UBound(arr)
d(arr(i, 1)) = i
Next
Erase arr
arr = Range("e1:e" & [e65536].End(3).Row)
For i = 3 To UBound(arr)
Range(Cells(d(arr(i, 1)), 2), Cells(d(arr(i, 1)), 3)).Copy Range(Cells(i, 6), Cells(i, 7))
Next
End Sub

如何操作使数据格式和公式返回的格式一样2.rar

2楼
xyf2210

传递VBA也不错呀

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

如何操作使返回数据字体格式和数据源字体格式一样呢 ？

如何操作使返回数据字体格式和数据源字体格式一样呢？