Question

我有一个合并了一些单元格的数据集。

没有一列未合并，有些列没有条目。

我想找到最后一行，以便我可以将一个公式添加到一列直到最后一行。

目前我的最后一行是一个包含2个条目的合并单元格。我的公式已经加起来直到倒数第二行。

这是我根据A列（已合并单元格）找到最后一行的代码。

lastrow = Range("A" & Rows.Count).End(xlUp).Row

由于合并的单元格，IT只是没有拿起最后一行。我无法使用它们。

我想在最后一行使用以下代码：

Range("AB5") = "Age Year/Month"
    Range("AB6:AB" & lastrow).Formula = 
    "=DATEDIF(RC[-2],TODAY(),""Y"") & "" Years, "" & 
    DATEDIF(RC[-2],TODAY(),""YM"") & "" Months """

适用于除了我最后一行之外的其他所有未被拾取的内容。

我还想将今天（）放在我的工作表上的某个地方并参考上面公式中的单元格，而不是今天使用（）我知道的所有时间都是不稳定的。

有关合并单元格的最后一行的任何建议吗？对不起，由于某种原因，它不允许我添加评论。

我无法添加图片，因为它是我正在使用的机密数据。 A列是最完整的列，只是col A中的最后2行合并。所以它并没有意识到最后一行实际上是最后一行，它将两个合并单元格中的第一行作为最后一行

Answer 1

为什么不试试

lastrow = Sheets("UrSheet").UsedRange.Rows.Count

尝试以下

Dim cel As Range
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Set cel = Cells(lastrow, 1)
lastrow = lastrow + cel.MergeArea.Rows.Count - 1
MsgBox lastrow

Lastrow由于合并的单元格而未被识别

1 个答案: