word 横向合并单元 Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend For x = 1 To 20 Selection.Cells.Merge Selection.MoveDown Unit:=wdLine, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend Next