粘贴特殊的列宽
谁能告诉我为什么这不粘贴在指定的单元格中复制的内容
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”,但它不粘贴任何东西
当你使用xlPasteColumnWidths
它只会粘贴列宽(没有值)。 如果你想粘贴值使用xlPasteValues
或xlPasteFormulas