[已解决]历遍工作表转置操作的问题

dfshm

附件 历遍工作表转置操作.rar (50.13 KB, 下载次数: 10)

2014-4-19 11:16 上传

点击文件名下载附件
谢谢老师！

最佳答案

月排行榜 / 总排行榜

Zipall

2014-4-19 11:57

1. Sub test()
   
2.     For i = 2 To Sheets.Count
   
3.         With Sheets(i)
   
4.             t = Application.WorksheetFunction.Transpose(.UsedRange.Value)
   
5.             .UsedRange.Clear
   
6.             .Cells(1).Resize(UBound(t), UBound(t, 2)) = t
   
7.         End With
   
8.     Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

Zipall

1. Sub test()
   
2.     For i = 2 To Sheets.Count
   
3.         With Sheets(i)
   
4.             t = Application.WorksheetFunction.Transpose(.UsedRange.Value)
   
5.             .UsedRange.Clear
   
6.             .Cells(1).Resize(UBound(t), UBound(t, 2)) = t
   
7.         End With
   
8.     Next
   
9. End Sub
   

复制代码