Excel自动跨多行填充序号

假设我一页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

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

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

你好！ 试试这样填充。 第一个单元格输入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