Question

任何人都可以告诉我为什么这不会粘贴在指定单元格中复制的内容

Dim FinalRow As String
        FinalRow1 = 112 - Quantity
        Let FinalRow = "112" & ":" & FinalRow1

        'Unhide Rows
        For i = 1 To Quantity
        Rows(FinalRow).EntireRow.Hidden = False
        Next

        Dim RowToPaste As String
        RowToPaste = "C" & FinalRow1
        Range("C112:AM113").Select
        Selection.Copy
        Range(RowToPaste).Select
        Selection.PasteSpecial Paste:=xlPasteColumnWidths
        Range("C112:AM113").Select
        Selection.Borders.LineStyle = xlNone
        Range("C112:AM113").ClearContents

它会清除内容并删除边框，我知道它正在复制单元格“C112：AM113”，但它没有粘贴任何东西

Answer 1

使用xlPasteColumnWidths时，它只会粘贴列宽（没有值）。如果要粘贴值，请使用xlPasteValues或xlPasteFormulas

PasteSpecial Column Widths

1 个答案: