这个的话可以通过宏来完成,具体如下,当然也可以根据需要进行自己调整
Sub newNum()
Dim startnum, addnum, rownum, colindex, i, temp As Integer
startnum = InputBox("请输入要递增的初始数字", "提示", 10)
addnum = InputBox("请输入每次希望要递增的数字", "提示", 1)
rownum = InputBox("请输入要完成的行数", "提示", 10)
colindex = 2 '列号在第二列
For i = 1 To rownum
If (i = 1) Then
Cells(i, colindex)Value = "8x" + startnum '8x就是原来单元格中左侧的8x30的左侧部分
Else
temp = startnum + addnum (i - 1)
Cells(i, colindex)Value = "8x" & temp
End If
Next i
End Sub
用A列作辅助列,原A、B列数据分别移为B、C列
A1=1,B1=4,C1=7
A2:=SUM(C$1:C1)-SUM(B$1:B1)+ROW(),B2=2,C2=5
D1:=VLOOKUP(ROW(A1),A:B,2)+ROW(A1)-VLOOKUP(ROW(A1),A:A,1)
下拉即可
如有更多行数据,A2公式也可下拉
将下面的合并单元格全部拆分后。
1、移动鼠标到要填充数据的单元格右下脚,当出现“+”就按住鼠标左键往下拉。2、就会填充数据;3、如果单元格中全是数据时,直接拉是复制,按ctrl键往下拉是填充序列;4、如果单元格中既有数据又有文本时,直接拉是填充序列,按ctrl键往下拉是复制,与数据刚好相反。
合并A2:A3单元格(也可以后合并),输入:
=OFFSET(H$1,ROW(2:2)/2,)
下拉,将公式及合并单元格格式同时向下复制填充得到需要的结果
方法一
先在A1里输入71,----编辑---填充----序列----序列产生在列---等差序列--步长为01---终止值输入你最终的数值--比如100,确定
效果如下图
方法二
先在A1输入71,A2输入72,再选中这两个单元格,点住单元格外框右下角的那个小黑点,下拉,也可实现要求
方法三
用公式,在A1中输入公式
=ROW(A71)/10
或
=7+ROW(A1)/10
下拉复制公式
方法多样,这三种已足矣!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)