计算另一张工作表中的行数并应用公式

Posted

技术标签:

【中文标题】计算另一张工作表中的行数并应用公式【英文标题】:Count rows in another sheet and apply formula 【发布时间】:2020-06-16 04:05:46 【问题描述】:

我有一个有 2 张工作表的 excel 工作簿。 表 1 和表 2

Sheet1 中的行数不定。在 sheet2 中,我希望在“A”列中应用一个公式,并根据 Sheet1 中存在的行数将其一直向下应用。

如果我在同一张纸的上下文中使用以下代码,那么它可以工作,但我需要将它移到另一张纸上。

With Sheets("Sheet1")
    .Range("O2:O" & .Cells(.Rows.Count, "A").End(xlUp).Row).Formula = "=A2&""|""&B2&""|""&E2&""|""&G2"
End With

【问题讨论】:

"Sheet1"改成"Sheet2",然后把Sheets("Sheet1")放在.Cells前面。 给这家伙一枚勋章!我整天都在努力解决这个问题,最后决定提交寻求帮助。感谢这完全按照我的需要解决了。 【参考方案1】:

要结束这个问题:将"Sheet1" 更改为"Sheet2",然后将Sheets("Sheet1") 放在.Cells 之前(并且要保持一致,也要在.Rows 之前):

With Sheets("Sheet2")
    .Range("O2:O" & Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row).Formula = "=A2&""|""&B2&""|""&E2&""|""&G2"
End With

【讨论】:

以上是关于计算另一张工作表中的行数并应用公式的主要内容,如果未能解决你的问题,请参考以下文章

Excel 一张工作表变动后,怎么自动更新另一张表中的数据

在工作簿中查找所有匹配项并将结果偏移到另一张工作表中(VBA)

自动填充另一张工作表中的数据

如果不同工作表上的值匹配,则将数据从一张工作表复制到另一张工作表

匹配多个工作表中的单元格

将同一工作簿中的多个 Excel 工作表复合到一张工作表中