将复制这行拆分，复制后选择性粘贴：
Rows(x & ":" & n).EntireRow.Copy
Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
如果是复制的单元格格式，再加上下面一句
Range("A1").PasteSpecial xlPasteFormats
另外，Rows本身就是整行引用，EntireRow在这里就是重复的，可取消，直接改为：
Rows(x & ":" & n).Copy
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024