​​Excel VBA系列之为对象（object）变量赋值!

1. 在Excel VBA中，我们定义一个变量i为整数时，可以为其赋值，如图所示。

Sub test()

Dim i As Integer

i = 8

Range("A1") = i

End Sub

2. 执行以上过程后，可以在工作表的A1单元格返回值8。

3. 当定义一个sht变量为工作表时，不能直接像上面的i那样赋值。注意在以下示例中的Sheets.Add动作，其返回的是一个工作表对象（Object）。

Sub test1()

Dim sht As Worksheet

Sheets.Add

sht = Sheets.Add

End Sub

4. 如果执行图中所示的代码，程序就会报错，提示“对象变量或With块变量为设置”，因为Sheets.Add返回的是对象，而sht定义为工作表无法直接与其对等。

5. 要解决上面出现的错误，我们需要在代码中的sht前面加上一个Set，意为“设置”。

Sub test1()

Dim sht As Worksheet

Set sht = Sheets.Add

End Sub

6. 在如下的示例中，我们要依据当前工作表中A2至A4单元格的班级名称，分别创建新的工作表，这里就可以通过Set为对象sht赋值，然后根据班级名称命名新增的工作表。

Sub test1()

Dim sht As Worksheet

For i = 2 To 4

  Set sht = Sheets.Add

  sht.Name = Sheet9.Range("A" & i)

Next

End Sub

如果大家有其他的方法，或者想要知道哪方面的办公技巧，下方评论哦~

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；