Option Explicit Dim mdl ' the current model Set mdl = ActiveModel Dim Tab 'running table Dim col_1 Dim col_2 Dim col_3 Dim col_4 ' 定义属性变量 for each Tab in ActiveModel.Tables Set col_1 = Tab.Columns.CreateNew Set col_2 = Tab.Columns.CreateNew Set col_3