excel表格复制到word中显示最终一行

excel

　　先在尺标调整右缩进使文字宽度适当，文字设置为红色，然后运行此宏:Sub ins_enter()'by sylun excelhome'行末加硬回车for word2003 Application.ScreenUpdating = False With ActiveDocument.Content.Find .ClearFormatting .Font.Color = wdColorRed .Format = True Do While .Execute .Parent.Select With Selection Do .MoveStart wdLine, wdExtend If .Previous Like [! & Chr(11) & - & Chr(13) & ] Then .InsertBefore Chr(13) .Start = .Start + 1 Loop Until .Type = wdSelectionIP End With Loop End With Application.ScreenUpdating = TrueEnd Sub2.复制加过硬回车的段落，选择相应数量的表行，粘贴　　第一种方法是：选中第一行内容，点击插入--表格---文本转换成表格。然后复制表格，进excel粘贴即可。　　第二种方法是：直接复制第一行内容进excel，选中粘贴后的表格，点击excel数据选项下的分列，根据分列向导将内容分到多个单元格中。