求教！按列筛选到分表时，如何设定每一列的单元格格式？？

小油门

前段时间在论坛下载了某大神的一个一键按列筛选自动生成分表的VBA，十分实用，但是现在实用发现不会设定输出来的分表的单元格格式，请问如何可以保持单元格格式输出，或者直接设置输出表的每一列的单元格格式。各位老师，各位大神，本人小白，劳烦各位指教。感谢网海遨游的帮助，但是现在问题是网海遨游给改的表输出后有一个点，这个点能不能去掉？？？

输出前

输出后

这个点能去表吗

网海遨游

是不是这个意思呢？

小油门

网海遨游 发表于 2020-1-14 14:49
是不是这个意思呢？

没错没错，谢谢大佬。学习到了。

小油门

网海遨游 发表于 2020-1-14 14:49
是不是这个意思呢？

您好，又有一个问题，生成的身份证和卡号里 是'152131196707010328 这样的，这个' 可以去掉吗，最好是设置成文本格式，因为有这个  '   的话，银行模板是倒入不进去的。

opiona

你在模板中先设为:文本格式的即可
然后去掉身份证前的 这个符号

opiona

1.                 ElseIf i = 4 Or i = 5 Then
   
2.                     brr(j, i) = "'" & arr(i, j)

复制代码

这2行就不需要了

小油门

opiona 发表于 2020-1-14 21:16
你在模板中先设为:文本格式的即可
然后去掉身份证前的 这个符号

如何设置？？我的原始表一直是文本格式，也没有那个符号。
去掉了两行代码后。生成的新表还是会变成科学计数法。。。

opiona

小油门

opiona 发表于 2020-1-15 11:33

懂了，这样就可以随意设置每列的格式了。万分感谢。节约无限多时间。