麻辣家族討論版版 » Excel程式區 » 請問大大，有沒有內建的函數可將欄列互換，謝謝

返回列表下一主題上一主題發帖

請問大大，有沒有內建的函數可將欄列互換，謝謝

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-9-5 17:23 | 只看該作者

請問大大，有沒有內建的函數可將欄列互換，謝謝

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

test.rar (13.99 KB)

test.rar (13.99 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

3^#

發表於 2013-9-5 23:18 | 只看該作者

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

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-9-5 19:55 | 只看該作者

回復 1# wufonna

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

複製代碼

Sub test()
Dim ar
With ActiveSheet.[A1].CurrentRegion
ar = Application.Transpose(.Value)
.ClearContents
.Cells(1, 1).Resize(UBound(ar), UBound(ar, 2)).Value = ar
End With
End Sub

複製代碼

靜思自在 : 為人處世要小心細心，但不要「小心眼」。

返回列表下一主題上一主題