在VBA中将公式从上到下拖动

Question

将公式从列M2从上到下拖动到列M（参考列L最后一行）。请让我知道在VBA中编写代码的最简单方法。

Answer 1

假设您要连接L列中的字符串和其他字符串。下面的宏将在m列中提供结果

Dim lrow As Integer
Sub test()
With ActiveSheet
lrow = .Range("L600000").End(xlUp).Row
.Range("M2:M" & lrow).FormulaR1C1 = "=CONCATENATE(RC[-1],""TargerString"")"
End With
End Sub

经过测试

在这里展示你的工作总是好的：）

Answer 2

我认为最简单的方法（我相信你是新手？）是在拖动列时录制宏。然后 - 查看“自动”编写的代码。

快速谷歌搜索给了我这个有用的链接：How to Record a Macro to Automate Tasks in Excel 2010

Answer 3

如果您使用的是列 L 的最后一行，并在一个范围内复制该公式，那么在excel-vba中执行此操作的最佳方式也是最简单的方法 - 请勿使用复制，只需设置.Value属性。

例如，这将设置您定义的范围内所有单元格的值（“yourRange”）。它们都等于单元格的值 L99 。

Dim yourRange As Range
Set yourRange = Range("M:M")
yourRange.Value = Range("L99").Value

我认为 L99 是此示例的 L 列的最后一行。如果您不知道列 L 中的最后一行（或者每次运行代码时它是否可以更改），请检查this SO answer以获取有关如何查找代码的良好建议Excel VBA中的最后一行。