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的数字进行组合,不是第一单元到第十五单元中的数字进行组合
追答你试一下就知道
追问我试了,
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/5243fbf2b2119313586eba5d68380cd791238d2a?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/ca1349540923dd547331e285dc09b3de9d824898?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/38dbb6fd5266d01669bbdbc59a2bd40734fa35b8?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
追答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
修正了一下,之前手机码字忘记是单元格引用了。