随机生成数值，确保3个一组不重复

雷沛qaz

需要在A列生成一串数字，按照设定最大值、最小值、数量随机生成，最终确保（A1-A3  A2-A4  ...  A55-A57...） 生成数据3个为一组不重复，这个使用公式或者代码能不能实现，感谢大神指点。

liulang0808

Sub 按钮1_Click()
    Dim arr()
    [a1].CurrentRegion.Offset(1).Clear
    Set d = CreateObject("scripting.dictionary")
    ReDim arr(1 To [f2], 1 To 2)
    For j = 1 To [f2]
        If d.Count = 3 Then
            d.Remove d.keys()(0)
        End If
l1:
        x = WorksheetFunction.RandBetween([d2], [e2])
        If d.exists(x) Then GoTo l1
        arr(j, 1) = x
        d(x) = ""
    Next j
    d.RemoveAll
    For j = UBound(arr) To 3 Step -1
        str1 = ""
        For i = j - 2 To j
            str1 = str1 & arr(i, 1)
        Next i
        arr(j, 2) = str1
        If Not d.exists(str1) Then
            Set d(str1) = Cells(j + 1, 2)
        Else
            Set d(str1) = Union(d(str1), Cells(j + 1, 2))
        End If
    Next j
    For Each k In d.keys
        If d(k).Cells.Count > 1 Then d(k).Interior.ColorIndex = 3
    Next k
    [a2].Resize(UBound(arr), 2) = arr
End Sub

liulang0808

看看理解对不对吧

雷沛qaz

liulang0808 发表于 2023-3-18 09:34
看看理解对不对吧

1.能不能尽可能的不让重复，即B列不产生红色填充，或产生填充越少越好（因为最终还是需要手动修改到全部不重复）
2.在C列能不能显示B列有几组数值是重复的（这样可以为手动修改提供最少重复提示）

liulang0808

雷沛qaz 发表于 2023-3-18 09:58
1.能不能尽可能的不让重复，即B列不产生红色填充，或产生填充越少越好（因为最终还是需要手动修改到全部 ...

不想重复，就多点击几次按钮，提取不重复的结果

雷沛qaz

liulang0808 发表于 2023-3-18 09:58
不想重复，就多点击几次按钮，提取不重复的结果

在C列能不能显示B列有几组数值是重复的，这样就不用点一次下拉看一次了

liulang0808

增加了提示，供参考