Sub 宏1() a = 21 * 96 b = 7552 - a l = 1 For i = 0 To Int(b / 20) For j = 0 To Int(b / 22) For k = 0 To Int(b / 19) If i * 20 + j * 22 + k * 19 = b Then Cells(l, 1) = i Cells(l, 2) = j Cells(l, 3) = k Cells(l, 4) = 21 * 96 + 20 * i + 22 * j + 19 * k l = l + 1 End If Next Next Next End Sub