代码之家 › 专栏 › 技术社区 › Jimmy

如果某行的a列中有内容,请使用VBA粘贴公式

vba excel

0

Jimmy · 技术社区 · 6 年前

我试着运行一些VBA来计算在给定范围内有多少行不是空的,然后在第13列(m)中粘贴一个公式来计算不为空的行数。

这是我的代码:

Sub CountCells()
MsgBox WorksheetFunction.CountA(Sheets("DATA").Range("A7:A750"))
Worksheets("DATA").Range("M7:M500").Formula = "=MYFORMULAR"
End Sub

这段代码当前统计A列中不为空的单元格数,但是如何获取这个数字并将其用于下一个等式?

如果在A7:A750范围内有200列内容在中,我想将我的公式从M7粘贴到M207。

1 回复 | 直到 6 年前

1

urdearboy 6 年前

Option Explicit

Sub CountCells()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("DATA")
Dim LRow As Long

'Determine last row
LRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

'Apply formula from rows 7 to last row
ws.Range("M7:M" & LRow).Formula = "=MYFORULAR"

End Sub