Select 的替代方案并粘贴到 Excel Interop 中？

Question

我正在编写一段代码，应该找到最后使用的行并复制并粘贴最后两行，以便在不删除边框的情况下添加 "new row"。这是我为它编写的（工作）代码


    Dim ExcelApp As New Interop.Excel.Application()
    Dim c = ExcelApp.Workbooks.Open("\xxx.xxx.xxx.xxx\some_files.xlsm")
    Dim f = c.Sheets("SomeSheet")
    Dim lRow As Integer = f.UsedRange.Rows.Count

    f.Range("A" & lRow - 1 & ":BG" & lRow).Copy
    f.Range("A" & lRow & ":BG" & lRow + 1).Select
    f.Paste

现在你可以看到我使用了Range.Select方法然后.Paste。问题是，我知道这是一个糟糕的举动，但我似乎无法找到一种方法来粘贴到特定单元格而不先选择它们。

Answer 1

为什么需要复制粘贴它们？这不是以编程方式实际 "copy" 数据的标准程序。如果您需要将内容放入剪贴板（供用户 re-use ），您可以使用 .Copy。但也许您想避免循环等。

如果您需要复制 and/or 格式的数据，您通常会使用这样的代码：

ColIndex = 4
ColCount = 5    ' number of columns to copy
For ic = ColIndex To ColIndex + ColCount
    ' Copy values
    ThisWorkbook.Worksheets("List1").Cells(8, ic).Value = ThisWorkbook.Worksheets("List1").Cells(4, ic).Value
    ' Copy particular properties
    ThisWorkbook.Worksheets("List1").Cells(13, ic).NumberFormat = ThisWorkbook.Worksheets("List1").Cells(4, ic).NumberFormat
    ThisWorkbook.Worksheets("List1").Cells(14, ic).Font.Bold = ThisWorkbook.Worksheets("List1").Cells(4, ic).Font.Bold
    ThisWorkbook.Worksheets("List1").Cells(14, ic).Interior.Color = ThisWorkbook.Worksheets("List1").Cells(4, ic).Interior.Color
    ThisWorkbook.Worksheets("List1").Cells(14, ic).Borders.Color = ThisWorkbook.Worksheets("List1").Cells(4, ic).Borders.Color
    ' Copy all formatting at once (like with Format Painter)
    ThisWorkbook.Worksheets("List1").Cells(16, ic).Style = ThisWorkbook.Worksheets("List1").Cells(4, ic).Style
Next

在此示例中，它会将值从 D4:I4 复制到 D8:I8。

不幸的是，您不能使用以下代码：

ThisWorkbook.Worksheets("List1").Range("D8:I8") = ThisWorkbook.Worksheets("List1").Range("D4:I4")   ' WRONG!!

出于好奇和 self-education，我尝试了另一种复制格式的方法，它也有效：

Dim CopyRng As Range, PasteRng As Range
Set CopyRng = ThisWorkbook.Worksheets("List1").Range("D4:I4")
Set PasteRng = ThisWorkbook.Worksheets("List1").Range("D28:I28")
CopyRng.Copy
PasteRng.Parent.Activate
PasteRng.PasteSpecial xlPasteFormats
Application.CutCopyMode = False

它确实激活了，也不需要选择单元格。

Select 的替代方案并粘贴到 Excel Interop 中？

Alternatives to Select & Paste in Excel Interop?

excel

vb.net

select

interop

paste