Question

所以我正在开发一个电子表格来简化数据记录。然而，这是一个非常繁琐的复制，粘贴和放大过程。更改。有没有办法可以创建一个宏来复制以下内容：

=IF(Trade2!I16=99,0,Trade2!I15)

将细胞直接粘贴在下方但是作为

=IF(Trade3!I16=99,0,Trade3!I15)

除此之外，还需要复制100次。我15岁时每次手动打字并失去生活的意愿哈哈这看起来非常简单但是我正在尝试的一切都会导致大量混乱，我很擅长使电子表格方面工作，但编码不是我的强项。

非常感谢任何建议

Answer 1

不确定你的意思，但试试这个

Sub Main()

    Dim i As Long
    For i = 1 To 10000
        Range("A" & i).Formula = "=IF(Trade2!I" & i + 1 & "=99, 0, Trade2!I" & i & ")"
    Next i

End Sub

Answer 2

如果您使用此公式：

=IF(INDIRECT("Trade"&ROWS(A$1:A1)&"!I16")=99,0,INDIRECT("Trade"&ROWS(A$1:A1)&"!I15"))

返回：

=IF(Trade1!I16=99,0,Trade1!I15)

但您现在可以将其复制下来，并且工作表编号会增加。

ROWS公式在您将其复制时用作计数器。 INDIRECT公式返回对工作表的引用。

用于复制和更改设置编号Excel的宏

2 个答案: