把A列设置为“文本”格式。A1输入0001,A2输入0002,选中这两格,向下填充,到4000。选中这4000个数据---复制,在数据的末尾----粘贴。共粘贴3次。就形成了0001到4000,0001到4000......这样一列数据。光标在任意数据位置,点工具条中的排序按钮,数据就排列成4个0001,4个0002.....到4个4000了。
不需要公式和宏,数据稳定可靠。
重复三次的
在你需要开始的地方输入:=TEXT(INT(ROW(A3)/3),"0000")
重复两次的在你需要开始的地方输入:
=TEXT(INT(ROW(A2)/2),"0000")
采用三列,三列均输入1-N的数值,然后把B\C列的内容复制到A列,按排序递增即可
使用宏:
Sub 宏1()
a = 1000001 '起始编号
b = 3 '重复次数
c = "A" '列名
d = 1 '起始行
e = 4000 '结束行
For i = d To e Step b
If i + b > e Then
Range(c & i & ":" & c & e) = a
Else
Range(c & i & ":" & c & i + b) = a
End If
a = a + 1
Next
End Sub
用宏,全部循环3次,再筛选2次的删掉