推火车 Sub huoche() for a = 1 to 9 for b = 1 to 9 for c = 1 to 9 for d = 1 to 9 range("F" & ( a*9*9*9 + b*9*9 + c*9 +d - 819 ) )= range("A" & a) + range("B" & b) + range("C" & c) + range("D" & d) next d, c, b, a end sub 数据填在a1:d9,结果从F1生成 ABCD列(每个数重复4次填入),举例: 1,1,1,1 2,2,2,2 …… 9,9,9,9 end,打了半天腰子疼