大佬帮忙看看 有什么问题

Angblin

我要在A列自动填充1111-7777的数 但是每一位到7都进一位  例如1117下一个1121 类似7进制  

我写了一段
但是跑出来只有1111到1777
到这里就停了 不知道哪里出了问题 请大佬指点一下




Sub yidaoqi()
Dim a, b, c, d As Integer
Dim i As Long



  i = 1

    For a = 1 To 7
      For b = i To 7
        For c = 1 To 7
          For d = 1 To 7
        
          ThisWorkbook.ActiveSheet.Range("A" & i) = a * 1000 + b * 100 + c * 10 + d
               
          i = i + 1
          Next
        Next
      Next
    Next


End Sub

Angblin

大家快来看看

Angblin

额 解决了 b=i to 7 这里错了

demonimissyou

Sub XX()
Dim I, J, K, L, M
For I = 1 To 7
For J = 1 To 7
For K = 1 To 7
For L = 1 To 7
M = M + 1
Cells(M, 1) = 1000 * I + 100 * J + 10 * K + L
Next
Next
Next
Next
End Sub
这样才对吧