大神给段代码，实现条码码自动生成

雾风寒狼

dambcer

？？？？

雾风寒狼

dambcer 发表于 2024-6-27 19:42
？？？？

感谢！试了一下代码，不行呀

yjh_27

[原创]十进制与16进制、36进制等不同进制间相互转换，瞬间完成—通用函数，代码共享
https://club.excelhome.net/thread-85113-1-1.html
(出处: ExcelHome技术论坛)

ww87725244

1. Sub aa()
   
2. Dim ar, i, k
   
3. With Sheet1
   
4.   ar = .Range("D3:E" & .Range("E65535").End(xlUp).Row)
   
5.     k = 48
   
6.     For i = 1 To UBound(ar)
   
7.       If ar(i, 2) = 0 And i <> 1 Then
   
8.         If k = 57 Then
   
9.           k = k + 8
   
10.         ElseIf k >= 90 Then
    
11.           k = 48
    
12.         Else
    
13.           k = k + 1
    
14.         End If
    
15.       End If
    
16.          ar(i, 1) = "00" & Chr(k)
    
17.     Next
    
18. End With
    
19. With Sheet2
    
20.   .[a1].Resize(UBound(ar), UBound(ar, 2)).NumberFormat = "@"
    
21.   .[a1].Resize(UBound(ar), UBound(ar, 2)) = ar
    
22. End With
    
23. End Sub

复制代码

雾风寒狼

ww87725244 发表于 2024-6-27 22:09

厉害，完美解决，感谢！