excelvba Question 在数据区用不同的数据标记线条。PrivateSub,就命名为()获取数据区的最大行列值x1,activesheet,细胞,特殊单元格(xlcelltypelastcell),。列y1活动表,细胞,特殊单元格(xlcelltypelastcell),划消除系统使用面积与实际使用面积的差异y1k 0 Dow while 1)。值初始化线条标记颜色范围(单元格(y。
dimflagasbooleanflagfalsofori 1 tousedrage . rows . countforj 1 tousedrage . columns . countifcells(I,j)Weight/MtContentsthenRows(I 1)。InsertShift:xlDownRows(1: