Sub 前区编码定制()
Dim B%, h#, i#, u#, X%, s#, n#, J#, Er(1 To 5) '对半值'？？？？？？？？？？？？
Dim Ar(0 To 9, 0 To 9) '？？？？？？？？？？？？
Dim N1%, N2%, N3%, N4%, N5%, N6%, N7%, N8%, N9%, N10%, N11%, N12%, N13%, N14%, N15%, N16%, N17%, N18%
B = UBound(Er)
With Sheet16 '红新编码？？？？？？？？？？？？
.[c1] = B '长度发送
For N1 = LBound(Ar) To UBound(Ar) - 4
For N2 = N1 + 1 To UBound(Ar) - 3
For N3 = N2 + 1 To UBound(Ar) - 2
For N4 = N3 + 1 To UBound(Ar) - 1
For N5 = N4 + 1 To N4 + 1
n = n + 1
Er(1) = N1
Er(2) = N2
Er(3) = N3
Er(4) = N4
Er(5) = N5
For h = 1 To UBound(Er)
For i = 1 To UBound(Er)
Ar(Er(i), Er(h)) = Ar(Er(i), Er(h)) + 1
Next i
Next h
Next N5
Next N4
Next N3
Next N2
Next N1
MsgBox n
.Range("A2").Resize(UBound(Ar, 1) + 1, UBound(Ar, 2) + 1) = Ar
End With
End Sub
Dim 就是定义变量
单引号就是注释
Dim Ar(0 To 9, 0 To 9)定义二维数组
With Sheet16就是可以省略前缀Sheet16,后面的代码只写他里面的属性。
您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~
如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～
ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632