Question

我希望我的宏一直填充我的公式。每次我运行宏时它都会在第13662行停止，因为那是我录制它时的最后一行，但最后一行不断变化。有没有办法做到这一点？我需要这样做的列是N，I，J，K和L.任何帮助表示赞赏。请参阅下面的代码。

itertools.product(*[range(1, n+1) for n in list_nums])

Answer 1

看起来您的问题是在结尾的第5行。

基于this answer，您可以替换：

Selection.AutoFill Destination:=Range("L2:L13662")

与

Selection.AutoFill Destination:=Range("L2:L" & ActiveSheet.UsedRange.Rows.Count)

Answer 2

以下是我认为适用于您的目的的vba代码示例。

'Counts the number of rows in column "C" and then places 
'concatenation formula in each adjacent cell (in column "D").
        Range("D2:D" & Range("C" & Rows.Count).End(xlUp).Row).Formula = "=CONCATENATE(C2,"", "",B2)"

宏到自动填充到最后相邻的单元格

2 个答案: