如果该行的A列中存在某些内容，请使用VBA粘贴公式-Java 学习之路

我正在尝试运行一些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 回答

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

回复于 2024-04-30T05:41:57+08:00

如果该行的A列中存在某些内容，请使用VBA粘贴公式

1 回答

相关问题