你做一次保留 原来的格式粘贴的动作，将这个过程记录成一个宏，保存宏后，你再编辑这个宏，让他单步调试，你就可以发现是哪句语句实现保留原格式粘贴了，
Range("F6").PasteSpecial Paste:=xlPasteAll
