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

【问题标题】：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前面。
给这家伙一枚勋章！我整天都在努力解决这个问题，最后决定提交寻求帮助。感谢这完全按照我的需要解决了。

标签： excel vba

【解决方案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

【讨论】：