[已解决]用VBA代码自动填充序号到对应单元格中

ybc76

请高手帮忙看下，
用VBA代码如何把“数据区”里的序号自动填充到对应的单元格中,效果如条码标签工作表里一样。
我这里都是用函数公式关联的，容易不小心弄掉。能不能用代码生成，需用时可以重新再自动生成。
条码打印.rar (23.67 KB, 下载次数: 48)

2013-2-18 16:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-2-18 16:51

点击 数据区 工作表的 生成条形码 ，可以生成

条码打印-1.rar (25.99 KB, 下载次数: 296)

2013-2-18 16:51 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

点击 数据区 工作表的 生成条形码 ，可以生成

条码打印-1.rar (25.99 KB, 下载次数: 296)

2013-2-18 16:51 上传

点击文件名下载附件

ybc76

不知道能不能扫描出来

ybc76

前面的那个“0”也要的，这可是一个编号，要通过这编号才能调出相应的数据出来的

无聊的疯子

使用这个代码就可以了
后面的单元格格式需要你自己设置好!!

1. 
   
2. Sub CC()
   
3. Dim Arr(), Brr, Hx As Long, X As Long, Lx As Long
   
4.   With Sheets("数据区")
   
5.     Hx = .Range("A65536").End(xlUp).Row
   
6.     Arr = .Range("A3:F" & Hx).Value
   
7.   End With
   
8.   ReDim Brr(1 To Application.RoundUp(UBound(Arr) / 3, 0) * 5, 1 To 14)
   
9.   For X = 1 To UBound(Arr)
   
10.     Lx = ((X - 1) Mod 3) + 1
    
11.     Lx = Lx + (Lx - 1) * 4
    
12.     Hx = Int((X - 1) / 3) + 1
    
13.     Hx = Hx + (Hx - 1) * 4
    
14.    
    
15.     Brr(Hx, Lx) = Arr(X, 1)
    
16.     Brr(Hx, Lx + 1) = Arr(X, 4)
    
17.     Hx = Hx + 1
    
18.     Brr(Hx, Lx) = "订单号"
    
19.     Brr(Hx, Lx + 1) = Arr(X, 6)
    
20.     Brr(Hx, Lx + 2) = "客户"
    
21.     Brr(Hx, Lx + 3) = "21"
    
22.     Hx = Hx + 1
    
23.     Brr(Hx, Lx) = "*" & Arr(X, 5) & "*"
    
24.     Brr(Hx + 1, Lx) = Arr(X, 2)
    
25.   Next
    
26.   With Sheets("条码标签")
    
27.     .Range("A:N").ClearContents
    
28.     .Range("A1").Resize(UBound(Brr), UBound(Brr, 2)).Value = Brr
    
29.   End With
    
30. End Sub
    

复制代码

你的效果第34,35 行格式与其它行的格式不统一,这一点需要你自己人工修改
格式设置统一后,用上面的代码就可以了!!

ybc76

还是2楼的代码能达到效果，就是前面的“0”没显示出来，不知道扫描效果如何，还得打印出来扫描下看看。

zjyxp

谢谢老师们，向老师们学习

kanke

实际上，当单元格有公式的时候，Range("A65536").End(xlUp).Row容易统计错误，把有公式但没有数据的单元格也统计进来，造成错误