复制/粘贴可变数字行（自动填充）

我想在一个代码中复制和粘贴一些东西，对我来说很困难：我无法select一个variables的行数。 我将粘贴整个代码，但同样的问题出现3次。 我想select一个单元格，将它的值（第一部分@“M25”）粘贴到填充表格的最后一行（引用例如填充“L”列的长度），所以它应该计算表中的填充行数，而不是在我的代码中停止@ M34，因为行数可能超过这个数。

我知道我应该使用这个主题： 自动填充dynamic范围

但我无法弄清楚如何从第25行开始，然后再到K的停止位置。

Range("B14").Select Selection.Copy Range("M25").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("M25").Select Application.CutCopyMode = False Selection.AutoFill Destination:=Range**("M25:M34")** Range("M25:M34").Select Range("N25").Select ActiveCell.FormulaR1C1 = _ "=INDEX(CLIENTS!C[-8],MATCH(CONTROL!R14C2,CLIENTS!C1,0))" Range("N25").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Selection.AutoFill Destination:=Range("N25:N34") Range("N25:N34").Select Range("O25").Select ActiveCell.FormulaR1C1 = _ "=INDEX(CLIENTS!C[-8],MATCH(CONTROL!R14C2,CLIENTS!C1,0))" Range("O25").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Selection.AutoFill Destination:=Range("O25:O34") Range("A25:O25").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 

代码可能看起来很难看，因为我刚开始使用VBA，并试图用loggingfunction做很多事情

谢谢

新代码的一部分：

 Range("B14").Select Selection.Copy Range("M25").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("M25").Select Cells(25, 13).Resize(Cells(Rows.Count, 14).End(xlUp).Row - 25).Value = _ Range("M25:M" & Cells(Rows.Count, 14).End(xlUp).Row).Value Range("N25").Select 

Answer 1

使用这样的东西。

 Cells(25, 13).Resize(Cells(Rows.Count, 14).End(xlUp).Row - 25).Value = _ Range("N25:N" & Cells(Rows.Count, 14).End(xlUp).Row).Value 

这将复制到最后一行给你。

要使用一系列的公式来做到这一点，请使用这个。

 Cells(25, 13).Resize(Cells(Rows.Count, 14).End(xlUp).Row - 25).Formula = _ Range("N25:N" & Cells(Rows.Count, 14).End(xlUp).Row).Formula