Sub test()End Sub
2. 假设要分别给A1，A5，B6等三个单元格赋值，则可以按照如下代码来完成；这里主要用到的是Range对象。Sub test()Sheet2.Range("A1") = 1Sheet2.Range("A5") = 5Sheet2.Range("B6") = 6End Sub
3. 执行以上代码后，即可在Excel对应的工作表中返回相应的数据。4. 在以上的代码中，我们可以发现在给每个单元格赋值时，前面都会带工作表名称，而因为是在同一张工作表中，所以可以用With来对这段代码进行优化。Sub test()With Sheet2.Range("A1") = 2 .Range("A5") = 6 .Range("B6") = 7End WithEnd Sub
5. 将各单元格赋值改动后，再次执行以上代码，同样可以在Excel工作表中得到相应的更新数据。6. 在With语句中也可以插入对其他工作表的操作，这时就要明确是哪张工作表。
Sub test()With Sheet2.Range("A1") = 2.Range("A5") = 6Sheet1.Range("A100") = 100.Range("B6") = 7End WithEnd Sub
7. With语句的其中一个典型应用是在设置单元格格式的时候，如图是一个已经录制好的宏，中间修改了单元格的大小。以上案例仅用于演示，更多实际应用请根据自己的实际需求来调整。
喜欢这篇文章的朋友请多多关注！