这种转置VBA能完成吗?敬请老师出手相助,谢谢!

wtb8152

老师好!

      转置表格，把最左边的列转为最下边的行，依次进行，最后与原表形成向左翻转90度的表。
敬请老师是否能用VBA来实现。无尽感激！谢谢！

洋务德雷

为什么要这么转置？是为了打印吗？若是为了打印，就没必要这样做。

wtb8152

洋务德雷 发表于 2023-4-18 15:49
为什么要这么转置？是为了打印吗？若是为了打印，就没必要这样做。

谢谢洋务德雷老师热心关注！
老师说对了，转置好后复制到WORD页面打印的。

wtb8152

洋务德雷 发表于 2023-4-18 15:49
为什么要这么转置？是为了打印吗？若是为了打印，就没必要这样做。

谢谢洋务德雷老师热心关注!
正是老师所说的,转换后复制到WORD页面打印.

洋务德雷

wtb8152 发表于 2023-4-18 16:12
谢谢洋务德雷老师热心关注!
正是老师所说的,转换后复制到WORD页面打印.

word的页面也可以设置呀，也没必要这么做的。

wtb8152

洋务德雷 发表于 2023-4-18 16:14
word的页面也可以设置呀，也没必要这么做的。

本人觉得WORD画表不如EXCEL好用.

WANT-T

直接横向打印不就好了，费劲转置干嘛

wtb8152

WANT-T 发表于 2023-4-18 16:47
直接横向打印不就好了，费劲转置干嘛

WANT-T老师好!
横向打印有考虑过,就是页码插入时与前面页的页码位置不一致.
我是双面打印的,必须奇偶页不同.

hansome221

代码如下，转过去的格式自己调吧



Sub 转置()

Sheets("Sheet1").Select
a = Range("A1").End(xlDown).Row
b = Cells(a, 1).End(xlToRight).Column

Sheets("Sheet2").Select

For i = 1 To b
    For j = 1 To a
    Sheet2.Cells(b + 1 - i, j) = Sheet1.Cells(j, i)
    Next
Next

End Sub

hansome221

1. Sub 转置()
   
2. 
   
3. Sheets("Sheet1").Select
   
4. a = Range("A1").End(xlDown).Row
   
5. b = Cells(a, 1).End(xlToRight).Column
   
6. 
   
7. Sheets("Sheet2").Select
   
8. 
   
9. For i = 1 To b
   
10.     For j = 1 To a
    
11.     Sheet2.Cells(b + 1 - i, j) = Sheet1.Cells(j, i)
    
12.     Next
    
13. Next
    
14. 
    
15. End Sub

复制代码