MS Excel VBA – 复制SpecialCells，同时保持目标格式

我想复制这些特殊的单元格到目的地，同时保持目的地的格式。 我想我必须把价值放在某个地方。 代码如下：

GRBReportSheet.Range("C" & GRBReportSheetFR & ":E" & GRBReportSheetLR).SpecialCells(xlCellTypeVisible).Copy Destination:=GRB.Range("C30") GRBReportSheet.Range("F" & GRBReportSheetFR & ":J" & GRBReportSheetLR).SpecialCells(xlCellTypeVisible).Copy Destination:=GRB.Range("H30") 

预先感谢您的时间！

Answer 1

尝试这个。

 GRBReportSheet.Range("C" & GRBReportSheetFR & ":E" & GRBReportSheetLR).SpecialCells(xlCellTypeVisible).Copy GRB.Range("C30").PasteSpecial xlValues GRBReportSheet.Range("F" & GRBReportSheetFR & ":J" & GRBReportSheetLR).SpecialCells(xlCellTypeVisible).Copy GRB.Range("H30").PasteSpecial xlValues