[已解决]谢谢小妖老师昨晚给我们讲了许多关于转置的方法，现在我用VBA编写了一个请大家参考

办公软件123

1	1	2	3
2
3

目的要求：把A列不确定行数的数据转置到b1开始的位置然后横向排列（当然本例的数据最大行数对于2003版不大于255）

代码是：

Sub zhuanzhi()
Dim k
 For k = 1 To Range("a65536").End(xlUp).Row
   Cells(k, 1).Copy Cells(1, k + 1)
Next k
 End Sub

[此贴子已经被作者于2010-3-17 15:15:05编辑过]

最佳答案

月排行榜 / 总排行榜

Dj_soo

2010-3-17 13:27

If k > Range("a65536").End(xlUp).Row Then Exit For
这句好像可以省略

跳转到最佳答案楼层

Dj_soo

If k > Range("a65536").End(xlUp).Row Then Exit For
这句好像可以省略

帅

跟帖学习

[em01]

wyg791019

[em02][em02]

lzj623

[em02][em02]

ada_smile

呵呵  学习了

办公软件123

QUOTE:

以下是引用Dj_soo在2010-3-17 13:27:00的发言：
If k > Range("a65536").End(xlUp).Row Then Exit For
这句好像可以省略

谢谢！！！！！！！[em17][em23][em27]