怎样在EXCEL中做0、2、4、6的排列组合

Question

不是填充，那个我也会，是这样子的，比如说排列为0246、0426、0624……这样五排列

Answer 1

用宏比较简单，按Alt+F11,在菜单选"插入"\"宏"

Sub Perm()

TextToPerm = InputBox("输入需组合字符：")
Tlen = Len(TextToPerm)
PermNo = WorksheetFunction.Permut(Tlen, Tlen)

For i = 0 To PermNo - 1
Result = ""
Remain = TextToPerm
For j = Tlen To 1 Step -1
Product = 1
If j > 2 Then
For x = 1 To j - 1
Product = Product * x
Next x
End If
Digit = Mid(Remain, 1 + Int(i / Product) Mod j, 1)
Remain = WorksheetFunction.Substitute(Remain, Digit, "")
Result = Result & Digit
Next j
ActiveCell.NumberFormat = "@"
ActiveCell = Result
ActiveCell.Offset(1, 0).Select
Next i

End Sub

回到工作簿，按Alt+F8执行Perm
这个宏会在执行后在所选单元格往下把可能项列出。

Answer 2

不明白什么意思，你是不是想问等差填充啊。如果是的话，就在A1=0,A2=2,A3=4,在选中三个单元格，把光标放在A3右下角，光标变成实心“十”字是向下拖动就可以了，就自动填充6，8，10，12……