简化代码利器（VBA最基础的With语句学习）

我们在日常工作中做合并工作表以及一些其它任务的VBA代码时就会发现，我们经常能看到一些固定结构的语句，这些固定结构的语句可以实现循环、逻辑判断等，With语句，号称是简化代码的利器。

正常情况下我们完成下列需求：选择单元格A1，设置字体加粗，倾斜，加下划线，底色为黄色。

Sub 宏1(） Range("A1").Font.Bold = True Range("A1").Font.Italic = True Range("A1").Font.Underline = xlUnderlineStyleSingle Range("A1").Interior.Color = 65535 End Sub

上面代码中，2到4句的对象是Range("A1").Font，第5句的对象是Range("A1").Interior，后面跟着的是属性，等号后面是属性值。也就是同样一个对象，想要对其不同的属性赋值，每一句都要有对象和属性以及属性值。如此，每个属性前面的对象都要重复写，用with正好可以解决这个问题。

With Range("A1") .Font.Bold = True .Font.Italic = True .Font.Underline = xlUnderlineStyleSingle .Interior.Color = 65535End WithEnd Sub

当我们使用with语句就可以大大简化了代码。