【原】Excel VBA 7.44同时对多个工作表相同位置执行操作，一下子有了三头六臂

前景提要(文末提供源码下载）

很多时候我们需要对单个工作薄中多个工作表执行相同的操作，比方说在相同的单元格输入相同的内容，或者针对表头进行相同的样式设置，如果仅仅只有几个工作表手动是完全没有问题的，但是多个工作表就比较的麻烦了，哪怕你纯粹复制粘贴都要浪费不少时间，那么今天我们就通过VBA来实现同时对多个工作表进行操作相同的操作，最大程度的提升我们的工作效率

代码区

假设我们现在有这样的一个工作薄

我们感觉这样的表头看起来非常的平淡，一点都不出彩，也不明显，我们想要给表头增加边框，同时将表头的背景色更改为黄色，这样突出表头，效果更好

这样的话，我们就需要操作更改背景色，增加边框这两个操作,同时还要不断的切换工作表，麻烦

我们看看VBA如何实现的

Sub TEST()Sheets.SelectRange("A1:H2").SelectSelection.Borders(xlBottom).LineStyle = xlDoubleSelection.Interior.Color = vbYellowEnd Sub

执行代码之后，瞬间就完成了。 

非常的高效~

代码分析

我们来看看今天的代码是如何实现的

Sheets.Select

代表的就是当前工作薄内所有的工作表，这句话的最终效果就是当前工作薄内所有的工作表都被选择了。

因为这是一份规则的数据表，所以表头的范围是相同的，我们可以直接将所有工作表的相同区域选中

Range("A1:H2").Select

和上面的选择所有工作表的原理是相同的，都相当与我们按住CTRL键盘进行多选，不过CTRL没有办法跨工作表进行多选操作

Selection.Borders(xlBottom).LineStyle = xlDouble'增加边框Selection.Interior.Color = vbYellow'背景色为黄色

最后的两句代码也是非常的简单，已经增加了注释，大家应该能够非常轻松的了解到代码的作用了

虽然功能很强大，但是代码还是非常简单易懂的

==============================================