標題: 請問大大，有沒有內建的函數可將欄列互換，謝謝 [打印本頁]

---

作者: wufonna    時間: 2013-9-5 17:23     標題: 請問大大，有沒有內建的函數可將欄列互換，謝謝

請問大大，有沒有內建的函數可將欄列互換，謝謝
列的長度可用 工作表1.Range("A1").End(xlDown).Row
請問 欄的長度用那一個 vba 謝謝

[attach]15953[/attach]

---

作者: stillfish00    時間: 2013-9-5 19:55

回復 1# wufonna

1. 工作表1.Range("A1").End(xlToRight).Column

複製代碼

1. Sub test()
   
2.   Dim ar
   
3.   
   
4.   With ActiveSheet.[A1].CurrentRegion
   
5.     ar = Application.Transpose(.Value)
   
6.     .ClearContents
   
7.     .Cells(1, 1).Resize(UBound(ar), UBound(ar, 2)).Value = ar
   
8.   End With
   
9. End Sub

複製代碼

---

作者: wufonna    時間: 2013-9-5 23:18

謝謝 stillfish00  大大
程式互換很方便，我vba 不太會再研究看看^0^
謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)