Question

Excel表格中，a列有15个数字，要任选取两个数字进行组合，如何把全部结果在b列中显示出来，如图

不需要循序，求公式？我用combin函数算了一下有105组，要把105组全部在b列中显示





Answer 1

Option Explicit
Sub demo()
    Dim r As Integer, r1 As Integer, irow As Integer
    irow = 1
    For r = 1 To 14
        For r1 = r + 1 To 15
            Cells(irow, 3) = r & "," & r1
            irow = irow + 1
        Next r1
    Next r
        
    
End Sub

复制上面的代码至VBE编辑器中运行即可

追问

vba我不懂，没有简单一点点公式吗？如果数字有变动（就是增加了或减少了）这个编码还能用吗？

vba我不懂，没有简单一点点公式吗？如果数字有变动（就是增加了或减少了）这个编码还能用吗？

这个编码好像不对，它是对1到15的数字进行组合，不是第一单元到第十五单元中的数字进行组合

追答

你试一下就知道

追问

我试了，

追答

Option Explicit
Sub demo()
    Dim r As Integer, r1 As Integer, irow As Integer
    irow = 1
    For r = 1 To 14
        For r1 = r + 1 To 15
            Cells(irow, 3) = Cells(r, 1) & "," & Cells(r1, 1)
            irow = irow + 1
        Next r1
    Next r
         
     
End Sub

修正了一下，之前手机码字忘记是单元格引用了。