批量序号输入和修改

eng5000

各位大侠，

600个包装标签，我要输入B1、B2、B3、~~~~~B600、B1000等，有什么快速和好的方法输入，同时有什么快速修改B1为A1、C1、D1的快速和好的方法，请大侠求教。

鄂龙蒙

用代码一次性修改呀

祝洪忠-

拖动鼠标 选中A:D列   数据选项卡下  筛选按钮

单击A1单元格的筛选按钮，筛选内容为“No.:”

然后  隐藏A列和C列

选中A8:A2400 ，编辑栏输入公式，按Ctrl+回车
="B"&((ROW(A1)-1)/8+1)*2-1

同样的方法，选中D8:D2400 ，编辑栏输入公式，按Ctrl+回车
="B"&((ROW(A1)-1)/8+1)*2

试试看

鄂龙蒙

1. Sub 修改()
   
2.     Dim m As Integer, n As Integer, s As Integer
   
3.     s = Sheet1.[A1].End(xlDown).Row
   
4.     n = 1
   
5.     For m = 8 To s Step 8
   
6.         Cells(m, "B") = "A" & n
   
7.         Cells(m, "D") = "A" & n + 1
   
8.         n = n + 2
   
9.     Next
   
10. End Sub

复制代码

eng5000

鄂龙蒙 发表于 2019-11-9 16:41

具体怎么操作，能说明下吗？

eng5000

祝洪忠- 发表于 2019-11-9 16:39
拖动鼠标 选中A:D列   数据选项卡下  筛选按钮

单击A1单元格的筛选按钮，筛选内容为“No.:”

方法可行，非常感谢。

eng5000

祝洪忠- 发表于 2019-11-9 16:39
拖动鼠标 选中A:D列   数据选项卡下  筛选按钮

单击A1单元格的筛选按钮，筛选内容为“No.:”

大师，现在又遇到这个问题了，能否解释下公式的含义，谢谢。