求大神给解答10*10矩阵

tc8217815

10*10矩阵乱序排列。
要求每行的数字分别是1-10
每列的数字分别是1-10

jotetsu2016

randbetween(1,10)
复制到10*10的所有格子里就可以了

duquancai

给个乱序的附件并模拟排序结果，估计你想简单了！没人愿意又写代码又模拟附件的。

liulang0808

请楼主提供有效的模拟附件，并结合附件举例说明具体需求吧

活在理想的世界

这不是Excel问题了，恐怕要数学好的人来帮你解决了。

横着和竖着刚好都是1-10，那么这个有点像数独啦。

一把小刀闯天下

'可能是这样

Option Explicit

Sub test()
  Dim i, j, k, a, n, t, key
  ReDim arr(1 To 10, 1 To 10), dic(1 To UBound(arr, 1))
  For i = 1 To UBound(dic)
    Set dic(i) = CreateObject("scripting.dictionary")
  Next
  For i = 1 To UBound(arr, 2): arr(1, i) = i: Next
  Randomize
  For i = 1 To UBound(arr, 2)
    n = Int(Rnd * UBound(arr, 1)) + 1
    t = arr(1, i): arr(1, i) = arr(1, n): arr(1, n) = t
  Next
  For j = 1 To UBound(arr, 2)
    dic(1).RemoveAll: n = 1
    For i = 1 To UBound(arr, 1)
      If i <> arr(1, j) Then dic(1)(i) = vbNullString
    Next
    For Each key In dic(1).keys
      n = n + 1: arr(n, j) = key
  Next key, j
  For j = 1 To UBound(arr, 2)
    Randomize
    For i = 2 To UBound(arr, 1)
      n = Int(Rnd * (UBound(arr, 2) - 1) + 2)
      t = arr(i, j): arr(i, j) = arr(n, j): arr(n, j) = t
    Next
    For i = 2 To UBound(arr, 1)
      If dic(i).exists(arr(i, j)) Then Exit For
    Next
    If i = UBound(arr, 1) + 1 Then
      For i = 2 To UBound(arr, 1)
        dic(i)(arr(i, j)) = vbNullString
      Next
    Else
      j = j - 1
    End If
  Next
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      arr(i, j) = arr(i, j)
  Next j, i
  [a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

tc8217815

一把小刀闯天下 发表于 2018-7-12 20:47
'可能是这样

Option Explicit

真是太感谢了

一把小刀闯天下

tc8217815 发表于 2018-7-12 20:49
真是太感谢了

随机数有点慢，行、列相加都是55，而且行、列上的数不会重复，应该是这意思的吧

tc8217815

一把小刀闯天下 发表于 2018-7-12 20:52
随机数有点慢，行、列相加都是55，而且行、列上的数不会重复，应该是这意思的吧

对！就是这个意思！有速度快点的嘛。我试了好些次，有时候会卡
谢谢！

香川群子

这种问题显然只有我最拿手。

秒杀。矩阵再大一点也没关系。

代码超级简单。