用VBA代码会简单点:Sub m()For i1 = 1 To 8For i2 = 1 To 8For i3 = 1 To 8For i4 = 1 To 8k = k + 1Cells(k, 1) = i1 & i2 & i3 & i4Next: Next: Next: NextEnd Sub也可以用公式,稍微费点脑子。