2017-02-27 10 views

答えて

2

これを試してください。

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 
+0

恐ろしい!!!ご協力いただきありがとうございます – Ace16150s

関連する問題