Sub 选择性粘贴() Set rng1 = Application.InputBox("请使用鼠标选择【复制】区域:", , , , , , , 8) Set rng2 = Application.InputBox("请使用鼠标选择【粘贴】区域的首个单元格:", , , , , , , 8) rng1.Copy rng2.PasteSpecial Paste:=xlValuesEnd Sub