急！求助-如何快速设置多个单元格的格式（这个问题看似简单，其实不然）

喜怒哀乐全齐-人

具体情况是这样的，我本想用以下方法快速设置N个离散单元格的格式，但当程序运行到第1行代码时，就出现了如图A的错误。虽然我可以使用循环的方式对逐个单元进行设置，但感觉这效率实在太慢，求各路达人赐教以下两点：
1.   With Sheet1.Summary.Range（“A1,A5,A6,A12,A18,A20,A21,A23,A27......")     '由于单元格太多并分散，不便一 一 例举，用“......“代替了，实际上这里大该有400个单元格
2.        .Font.Bold = True
3.        .Font.ThemeColor = xlThemeColorAccent3
4.        .Font.TintAndShade = -0.249977111117893
5.   End With




                            图（A）

求赐教：
             1、为什么会出现这种错误，在单元的不多的情况下，这样的操作是可以通过的，但当需要设置的单元格的数量一多时，错误就出现了？
             2、有什么好的方法，在不采用逐个循环设置的情况下，可以快速一次性地将这个400多个离散地址的单元格的格式设置好？

喜怒哀乐全齐-人

看来这个问题难道很多人了！！！

wjh426

我新人看不明白{:soso_e101:}