For i = 2 To 32 '这里是省的数量,2代表的是后面连接的数据表起始位是第二行,可以根据你自己的设计更改 Range('actRegProvince').Value = Range('Data_Province!D' & i).Value '按顺序选取数据表中省份 ActiveSheet.Shapes(Range('actRegProvince').Value).Select '激活对应的省份地图 Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range('actRegCodeProvince')).Interior.Color '将数据表中省份对应的颜色类别赋值给对应的省份地图 Next i
联系客服