返回列表 上一主題 發帖

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

wufonna

帖子
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)

收藏 分享

wufonna

帖子
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^
謝謝

TOP

stillfish00

帖子
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. 工作表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
複製代碼

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題