Question

我有一个包含大约90张格式相同的工作簿的电子表格。我需要将完成工作表中位于一行中的336个独立公式复制并粘贴到所有其他工作表。不幸的是，这最终需要大约30k个单独的细胞需要立即复制和粘贴。除了拆分并手动完成之外，还有其他解决方法吗？

任何帮助都是适当的。感谢。

Answer 1

您可以尝试使用VBA。类似下面的程序应该让你开始。以下过程从中获取信息。此过程假定您的公式从行A1开始到C1结束，根据需要更改。在数组中，列出所需的工作表名称。

Sub copyFormulas()

Dim rng As Range
Dim WS As Worksheet

With Sheets("The Sheet Name with the Formulas To Copy")

      Set rng = .Range(.Range("A1:C1"), Range("A" & Rows.Count).End(xlUp))

End With

    For Each WS In Sheets(Array("Your Destination Sheet Name Here", "And Here")) 'Add more sheets if you need to
                    WS.Rows(2).Resize(rng.Count).Copy
                    rng.Copy Destination:=WS.Range("A1")

            Next WS

End Sub

在Excel中复制大量数据

1 个答案: