Excel自动跨多行填充序号

来源：百度知道 编辑：UC知道 时间：2024/07/01 02:23:35
假设我一页Excel里面有3个小表格，每个表格大部分内容相同，但其中一个单元格填充的编号从SMQD000开始到SMQD999 ，需要填充的 单元格在4列的1、8、15、22、29.....行，要自己手动一个个的改太麻烦了，如果用循环填充应该很方便吧，有高手解答下撒！谢谢了先！

用如下VBA程序：
Private Sub CommandButton1_Click()
k = 1
For i = 0 To 999
Cells(k, 4) = "SMQD" & Right("000" & CStr(i), 3)
k = k + 7
Next i
End Sub

试试这样填充。
第一个单元格输入SMQD000，然后从这个单元格开始向下选择7个单元格，再用填充柄向下填充。
比如，在A1输入SMQD000，选中A1:A7，用填充柄向下拖。

Sub 运行()
Dim a As Integer, b As Integer, c As Integer, d As String
For a = 1 To 999
b = 7 * (a - 1) + 1
c = a + 1000
d = Right(Str$(c), 3)
Sheet1.Cells(b, 4) = "SMQD" & d
Next a
End Sub

D1输入
=IF(MOD(ROW(),7)=1,"SMQD"&TEXT(INT(ROW()/7),"000"),"")
向下填充

不明白。一个格填000-999吗？，1、8、15、22要填什么？