如何将格式和公式从 Excel 范围复制到另一个范围？

Question

我的情况：

我有一段代码可以将数据库中的数据复制到 Excel 工作表中，我们来看看这段代码

 RangeExcelData(objWorkbook.Worksheets.Item("DATA").Range("D71"), rptLotNo)

简而言之，RangeExcelData 是我的 VB.NET 应用程序中的一个用户定义函数，它允许我将变量数据复制到 Excel 中的一个范围中

我的代码中有很多这样的内容，必须将整个数据从数据库复制到工作表中。

我还有一个格式化的 Excel 工作表，我将数据库中的数据放入其中。我想知道的是我可以将格式化的 Excel 工作表中的格式复制到工作表内的空间中吗？

这是我想要的一个小插图，这是格式化的 excel 例如：

如果数据超出Excel，我希望VB.NET将格式复制到它旁边的空间。包括它可能具有的公式：

Answer 1

假设您的原始值以B2 开始并以D7 结束，您可以执行以下操作：

Dim xlSheet As Excel.Worksheet = objWorkbook.Worksheets("DATA")
With xlSheet
    .Range("B2:D7").Copy()
    .Range("E2:G7").PasteSpecial(Excel.XlPasteType.xlPasteFormats)
    .Range("E2:G7").PasteSpecial(Excel.XlPasteType.xlPasteFormulasAndNumberFormats)

    ' Start adding the new values.
    .Range("E3:E6").Value = 4
    .Range("F3:F6").Value = 5
    .Range("G3:G6").Value = 6
End With

注意：由于您也在复制公式（不仅仅是格式），因此任何 固定 值（如果有）都会也会被复制，但这无关紧要，因为您将用新值覆盖它们。

结果：

如果您不想复制固定值，您可以查看this question 中的答案。这是关于 VBA 的，但您可以在 VB.NET 中做同样的事情。