excel用VBA编程做表格答:Sub usa()Dim BoR, WokeRDim WorkLike, Area, Weight, AllArea, AllWeight, AllBoDim LikeID(), LikeIDst(), LikeIDwi()ReDim LikeID(9)LikeIDst() = Array(1, 3, 5, 9, 13, 17, 19, 20, 21, 24)LikeIDwi() = Array(2, 2, 2, 4, 4, 2, 1, 1, 3, 3)For j = ...