Question

0到9十个数字，任意4位数组合，数字不重复，如何用excel表格表示

Answer 1

用以下宏代码可达到目的：

Sub 四位数组合()
   For A1 = 1 To 9
   For A2 = 0 To 9
      If A2 <> A1 Then
   For A3 = 0 To 9
      If A3 <> A1 And A3 <> A2 Then
   For A4 = 0 To 9
      If A4 <> A1 And A4 <> A2 And A4 <> A3 Then
         N = N + 1
         Range("A" & N) = A1 & A2 & A3 & A4
      End If
   Next
      End If
   Next
      End If
   Next
   Next
End Sub

Answer 2

@nhking  “回答者上传的附件已失效”百度知道https://zhidao.baidu.com/question/1690163461348036348 的2016年6月12日回答210组，列出才209个组合，漏了那一组合，望大家复核解答补充

Answer 3

共有210个。见附表：

Sub 宏1()
m = 1
For i = 0 To 6
    For j = i + 1 To 7
        For k = j + 1 To 8
            For l = k + 1 To 9
                Cells(m, 1) = Application.Text(i & j & k & l, "'0000")
                m = m + 1
            Next
        Next
    Next
Next
End Sub

 

 

追问

你的算法有错误，好多数都没有

Answer 4

1. 单元格 纵列，右键，选单元格格式，自定义，0000

2. 输入函数 =RAND()*10000