excel vba 怎么去除bom

大概思路：

1.首先在宏设置中勾选“信任对VBA工程对象模型的访问”

2.代码最好放到一个新建的工作簿中，用代码打开要删除宏的文件，比如名为A.xlsm。

3.访问A.xlsm的VBProject对象，如果工程有密码，空纤源可以用Sendkey方法发送密码。

4.遍历VBComponents集合，在每个子集合中查找“宏1”的代码，找到后删除它。

若宏1，宏2，宏3.......在不同的模块，比较简单直接删除模块即可。若在同一个模块稍麻烦些，需要查竖改找“宏1”的首尾行号。

相关代斗态码细节可以再百度。

你要对哪个sheet *** 作，不写清楚VBA不知道你要写到腊裤哪个表咐纤呀衡局仿。

Sheet1.Range("B2").Resize(Mis_Count, 1) = Application.Transpose(Brr)

Sheet1.Range("C2").Resize(Mis_Count, 1) = Application.Transpose(Crr)

Sheet1.Range("D2").Resize(Mis_Count, 1) = Application.Transpose(Drr)

Sheet1.Range("A2").Resize(Mis_Count, 1) = Application.Transpose(Err)

---