时间戳

首页 > 解决方案 > fillseries vba excel

vba - 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

请帮忙..我已经几乎放弃了..

标签： vba

解决方案

尝试这个：

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

推荐阅读