WORD中表格如何旋转

庅庅萧 · 发表于 2014-5-24 12:14

下图为我的原始表格

我需要将WORD中的这个表格转个方向，如下图：
WORD排版问题3.png

附件为原始文件
求大神们帮帮忙~

cbtaja · 发表于 2014-5-24 13:16

1、复制到EXCEL中旋转后，
2、从EXCEL中再复制回去。

第2步其实完全没有必要，因为做统计表格还是用EXCEL来做更好，需要计算时比用WORD方便很多。

cbtaja · 发表于 2014-5-24 13:18

现金流量表.rar (5.21 KB, 下载次数: 47)

庅庅萧 · 发表于 2014-5-26 17:11

cbtaja 发表于 2014-5-24 13:16
1、复制到EXCEL中旋转后，
2、从EXCEL中再复制回去。

请问是黏贴的时候，选择“转置”这个选项吗？我试过这个方式，没有用呀？你有QQ吗？方便加QQ，教我一下吗？我的QQ是2413752571

cbtaja · 发表于 2014-5-28 00:06

庅庅萧发表于 2014-5-26 17:11
请问是黏贴的时候，选择“转置”这个选项吗？我试过这个方式，没有用呀？你有QQ吗？方便加QQ，教我一下吗 ...

1、先复制到EXCEL中，
2、在EXCEL中再次复制、转置粘贴，
3、调整单元格格式中的对齐属性文字方向。
4、各列逆序操作。（使用排序方法调整顺序比较快）

拓跋牛 · 发表于 2014-6-1 12:09

分页符，横向页面。不行么？

庅庅萧 · 发表于 2014-7-31 15:27

cbtaja 发表于 2014-5-28 00:06
1、先复制到EXCEL中，
2、在EXCEL中再次复制、转置粘贴，
3、调整单元格格式中的对齐属性文字方向。

再次复制、转置，我这边又会变回之前。不会再转一次呀。

cbtaja · 发表于 2014-8-17 11:23

本帖最后由 cbtaja 于 2014-8-17 12:24 编辑

庅庅萧发表于 2014-7-31 15:27
再次复制、转置，我这边又会变回之前。不会再转一次呀。

步骤：
1、用WORD打开后，全选表格并复制，接下来的步骤均在EXCEL中操作。
2、在EXCEL中直接用Ctrl+V进行粘贴，
3、再按Ctrl+C复制、转置粘贴到下方，并删除上面未转置的行。
4、右键设置单元格格式，在“对齐”选项卡中，①、取消合并单元格，②文本方向设置为0度，即水平方向。
5、在表格第1行之上插入一行，填充序列“列1”至“列7”，
6、用“排序”方法颠倒各列的顺序，即把第1列排到最后1列，而原来的最后1列要排到第1列。（排序时，选项中修改为按行排序，且不包含标题）。
7、删除增加的行1行，
8、进行适当的格式调整，包括重新合并单元格、调整列宽、重置单元格边框，
9、最后再复制到WORD中，适当调整格式。（本步骤建议不要做，直接以EXCEL表格保存更加方便）

cbtaja · 发表于 2014-8-17 12:27

本帖最后由 cbtaja 于 2014-8-17 12:29 编辑

如果用VBA代替手工操作，则以上第3步至8步骤可用以下代码：

Sub tz()
With Range("A1").CurrentRegion
.Copy
.Cells(.Rows.Count + 1, 1).PasteSpecial , , , True
.EntireRow.Delete
End With
With Range("A1").CurrentRegion
arr = .Value
r = UBound(arr)
c = UBound(arr, 2)
.Clear
End With
ReDim brr(1 To r - 1, 1 To c)
For j = 1 To c
For i = 1 To r - 2
brr(i, j) = arr(i, c + 1 - j)
Next
brr(r - 1, 1) = brr(r - 1, 1) & arr(r - 1, j)
Next
With [a1].Resize(r - 1, c)
.WrapText = True
.Orientation = 0
.MergeCells = False
.Value = brr
.Borders.LineStyle = 1
End With
End Sub

复制代码

fifaeric · 发表于 2016-1-20 09:34

WORD中插入EXCEL对象要是能像图片一样旋转就好了

		自动登录	找回密码
密码			免费注册

WORD中表格如何旋转

评分