[已解决]请问餐券编号怎么自动填充呀

songlinghui

请问餐券编号怎么自动填充呀
有文件，请大神帮忙看看

最佳答案

月排行榜 / 总排行榜

砂海

2017-8-12 10:31

i5  =TEXT(INT((ROW()-5)/9)+$K$1,"00000")
f6  =c5

这样 不用 辅助列

跳转到最佳答案楼层

砂海

k1输入起始号 ,选中 A1:G9 下拉 ,
选中 i5:i13 下拉 .

餐券编号.rar (4.11 KB, 下载次数: 5)

2017-8-12 10:28 上传

点击文件名下载附件

砂海

i5  =TEXT(INT((ROW()-5)/9)+$K$1,"00000")
f6  =c5

这样 不用 辅助列

windyjw007

单击按钮，输入数量试试！{:1712:}

1. Sub tc()
   
2.     Dim sl As Long, bh As Long
   
3.     bh = Cells(5, 3).Value
   
4.     sl = Application.InputBox("请输入填充数量", "提示")
   
5.     Application.ScreenUpdating = False
   
6.     Cells(10, 1).Resize(Rows.Count - 9, 7).Clear
   
7.     For i = 1 To sl
   
8.         Range("A1:G8").Copy Cells(9 * i + 1, 1)
   
9.         Cells(9 * i + 5, 3) = Format(bh + i, "00000")
   
10.         Cells(9 * i + 6, 6) = Format(bh + i, "00000")
    
11.     Next i
    
12.     Application.ScreenUpdating = True
    
13. End Sub
    

复制代码

zjdh

Sub TEST()
    S = Cells(50, "C").Value
    For I = 5 To 50 Step 9
    S = S + 1
        Cells(I, 3) = Format(S, "00000")
    Next
End Sub

餐券编号自动填充.rar (9.41 KB, 下载次数: 7)

2017-8-12 10:45 上传

点击文件名下载附件