excel填充柄能否按指定的数量复制

来源：百度知道 编辑：UC知道 时间：2024/07/09 04:20:41
a1=5，a2=8，a3=10，b1=100，我从b列中用填充柄下拉，希望从b1开始有5个（即a1个）单元格，即到b5按序递增，此时b5值为104，从b6起再从104开始（即b6值为104）递增a2个，如此一直往下，哪位高手帮我编个公式啊，多谢拉，编成了还要加50分，多谢多谢
yueliang_914:
你真的高手啊，我对你佩服之情有如滔滔江水连绵不绝！！！
功能基本实现了，只是有个小问题，每次是不是都需要在VBA中按F5才能实现数据更新，能自动更新吗，比如我更改A1为9，结果自动更新？

需用宏来完成，三步走：
1.alt+F11

2.双击左边工程框里的Sheet1,右边的编辑窗口中输入以下代码：

Sub SuperSort()
Dim i As Integer
Dim j As Integer
Dim arry(3) As Integer
arry(1) = Cells(1, 1).Value
For i = 1 To arry(1)
If i = 1 Then
Cells(i, 2) = 100
Else
Cells(i, 2).Value = Cells(i - 1, 2).Value + 1
End If
Next

For i = 2 To 3
arry(i) = arry(i - 1) + Cells(i, 1).Value
Cells(arry(i - 1) + 1, 2).Value = Cells(arry(i - 1), 2).Value
For j = arry(i - 1) + 2 To arry(i)
Cells(j, 2).Value = Cells(j - 1, 2).Value + 1
Next
Next
End Sub

3.F5

即可
注：如果不只三个数字，可把arry(3),3,两处改为相应的个数。还有疑问：yueliang1019@gmail.com