作者：乔山办公网日期：
返回目录：excel表格制作
碰到这种情况，一般我是重新安装一般office，很快。再怎么出来，总会遗漏一些。
原因：复制粘贴后表格的行高是默认的，列宽也是默认完全显示内容的列宽，自知动换行等设置无效了
按照如下步骤操作：
1、复制目标区域
2、在另一表格中要粘道贴的位置，选择性粘贴（右击单元格——选版择性粘贴），粘贴列宽
——
3、将目标区域整行选择，例如在A1：E20，就把1——20行整行选择复制，在粘权贴到另一表格的粘贴位置，即可。
检查一下表格内是否有公式或者链接之类的东西。
选择性贴上---值,可以复制到新zhidao表上吧 要不试试：Sub Macro1()
Dim adoc, psdoc As Document
On Error Resume Next '忽略错误
ChDrive "E:" '设置当前驱专动器盘符
ChDir "E:\1YHP\L论坛" '进入指定目录
adoc = Dir("*.doc")
Do While adoc <> "" '如果是文件夹,或者没有此文件,则会返回属""
' MsgBox Adoc
Set psdoc = Documents.Open(adoc) '打开指定文档
psdoc.Activate
psdoc.Range.Copy
Windows("总的.doc").Activate
Selection.Paste
psdoc.Close False
adoc = Dir()
Loop