用于复制并粘贴到 B-S 列的下一个空行的宏

Question

我有一份连续的月度报告，用于说明我们的销售额。 每天，我都会在一份报告中了解每个分支机构的销售额。我在单元格 E1 中保存了一个 Vlookup 公式，该公式将根据我正在处理的内容将报告中的信息拉到另一张表中。我可以复制 E1 并粘贴到具有 B-S 列范围的行中的每个单元格中，然后我再次复制该行并粘贴值，这样它就不会改变我的金额。第二天，我在下一行重复这个过程，这样它就可以为我提供每个分支机构的每月运行总数，然后是整个公司。我的每月图表总是大约 23 行。（excel 中的第 6-28 行）

我需要一个可以执行以下操作的宏： 第一次，我运行宏，它将复制我的单元格 E1 并将其粘贴到 B6 - S6 行，然后复制该行并粘贴该行的值。 然后在本月 2 日，我运行宏并重复，但在 B7-S7 行。 然后在本月 3 日，我运行宏并重复，但在 B8-S8 行。

这可能吗？

这就是我录制宏时所拥有的。

Sub Charges()
'
'Charges Macro
'Run Formula for charges
'
' Keyboard Shortcut: Ctrl+Shift+C
'
    Range("E1").Select
    Selection.Copy
    Range("B8:S8").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 End Sub

Answer 1

也许是这个？您可以直接传输值，无需复制和粘贴。

阅读this，了解如何通过避免选择/激活来提高代码效率。

Sub Charges()

Dim n As Long

n = WorksheetFunction.Max(6, Range("B" & Rows.Count).End(xlUp).Row + 1)

Range("B" & n & ":S" & n).Value = Range("E1").Value

End Sub

---

如果你想复制公式然后用你可以使用的值覆盖

Sub Charges()

Dim n As Long

n = WorksheetFunction.Max(6, Range("B" & Rows.Count).End(xlUp).Row + 1)

Range("E1").Copy Range("B" & n & ":S" & n)

Range("B" & n & ":S" & n).Value = Range("B" & n & ":S" & n).Value

End Sub