VBA 中提供了基本的数据类型，如果这些数据类型不能够满足使用要求，则可以通过Type语句来自定义数据类型，其具体语法： 

Type [数据类型名]

[数据类型描述]

end Type

本例需要自定义一个包含俩个值的数据类型People,然后在示例过程中使用该类型的数据。

 

图片：

 

源码：

'定义一个包含姓名和年龄的数据类型
Type People
    Name As String
    Age As Integer
End Type
Sub 示例()
    '定义一个数据类型为People的变量
    Dim PPMe As People
    '为变量赋值
    PPMe.Name = "张三"
    PPMe.Age = 34
    '使用消息框输出结果
    MsgBox PPMe.Name & "的年龄为：" & PPMe.Age
End Sub