fillseries vba excel

我需要excel vba中的帮助

如何在vba中填充系列 这是我的密码

PackId = Sheets("Sheet2").Cells(12, 8).Value
ThisWorkbook.Sheets("ShippingOutput").Range("AD2").Value = PackId
ThisWorkbook.Sheets("ShippingOutput").Range("AD2:AD" & iLast).cell.Value = cell.Value + 1

我得到的输出是这样的

AB 0006160000 000000033
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001

AB 0006160000 000000033
AB 0006160000 000000034
AB 0006160000 000000035
AB 0006160000 000000036
AB 0006160000 000000037
AB 0006160000 000000038
AB 0006160000 000000039
AB 0006160000 000000040

实际上，我希望输出像这样

AB 0006160000 000000033
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001
AB 0006160000 000000001

AB 0006160000 000000033
AB 0006160000 000000034
AB 0006160000 000000035
AB 0006160000 000000036
AB 0006160000 000000037
AB 0006160000 000000038
AB 0006160000 000000039
AB 0006160000 000000040

请帮忙。。我已经几乎放弃做这件事了。

试试这个：

With ThisWorkbook.Sheets("ShippingOutput").Range("AD2")
    .autofill destination:=.resize(iLast-1,1)
End With

---

根据我的测试，您可以使用以下代码：

Sub Test2()
Dim lastrow As Integer
Dim src As Range, out As Range, SourceRange As Range

lastrow = 20 ' You may recalculate this value.

Set SourceRange = Worksheets("Sheet2").Cells(12, 8)      
'MsgBox SourceRange.Value
Set out = Worksheets("ShippingOutput").Range("AD2")
SourceRange.Copy out

Set fillRange = Worksheets("ShippingOutput").Range("AD2:AD" & lastrow)
out.AutoFill Destination:=fillRange

End Sub

---

这些单元格是如何格式化的？数据实际上是文本格式。。所有这些都在1列中，那么，我如何才能将1添加到该值？对不起，我是一个初学者，要么将格式更改为number，要么使用Val。