1. http://club.excelhome.net/thread-373686-1-1.html 复制1格式Selection.CopyFormat粘贴格式Selection.PasteFormat 2. http://www.excelpx.com/thread-116445-1-1.html Sub Macro1() Dim Rng As Range Set Rng = ActiveCell Rng.Copy ActiveSheet.UsedRange.PasteSpecial Pas