Question

我试图创建一个宏，在每次执行后，它会改变传输的范围。

这是我的代码（不知道如何在每个exe之后更改行）：

Sheets("Suivi").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Rapport").Select
    Range("I6").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

感谢您的时间。

Answer 1

假设您只是想填写第一列，您可能希望使用类似的内容：

With Sheets("Rapport")
    .Cells(.Rows.Count, "I").End(xlUp).Offset(1, 0).Value = Sheets("Suivi").Range("B3").Value
End With

注意：这适用于Windows，但我不知道Mac版本。（但它是如此基本，我无法想象这两个版本不会以同样的方式迎合这一点。）

宏（excel_mac）将数据从表传输到另一个表并在之后添加一行

1 个答案: