麻辣家族討論版版 » Excelㄧ般區 » 轉置格式

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

轉置格式

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-12-11 22:42 | 只看該作者

轉置格式

紅色區塊怎麼轉置為綠色區塊~感謝

轉置格式.zip (2.49 KB)

樓主熱帖

收藏

開心學習,學習很開心

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

2^#

發表於 2018-12-12 09:26 | 只看該作者

Sub zz()
Dim ar, b()
ar = Application.Transpose([a1].CurrentRegion.Value)
ReDim b(1 To UBound(ar) * UBound(ar, 2), 1 To 1)
For Each c In ar
n = n + 1
b(n, 1) = c
Next
[h1].Resize(n) = b
End Sub

複製代碼

大學生 Rank: 4

帖子: 1410
主題: 4
精華: 0
積分: 1420
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-4-29

熱烈參與勳章

3^#

發表於 2018-12-12 09:30 | 只看該作者

=OFFSET(A$1,INT((ROW(A1)-1)/4),MOD(ROW(A1)-1,4))

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

4^#

發表於 2018-12-12 18:53 | 只看該作者

感謝指導
兩位方法都好好用

開心學習,學習很開心

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

5^#

發表於 2018-12-12 18:54 | 只看該作者

回復 3# hcm19522

感謝幫忙

開心學習,學習很開心

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

6^#

發表於 2018-12-12 18:54 | 只看該作者

回復 2# ikboy

感謝幫忙

開心學習,學習很開心

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

7^#

發表於 2018-12-22 15:44 | 只看該作者

回復 3# hcm19522

您好~現在想反轉回來該如何編寫
(就是把->綠色區塊反轉成紅色區塊)
可以幫忙解釋函數的意思嗎?
謝謝

開心學習,學習很開心

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

8^#

發表於 2018-12-22 15:45 | 只看該作者

回復 2# ikboy

您好~現在想反轉回來該如何編寫
就是把->綠色區塊反轉成紅色區塊
可以幫忙解釋巨集的意思嗎?
謝謝

開心學習,學習很開心

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

9^#

發表於 2018-12-27 11:38 | 只看該作者

Sub zz()
Dim ar, b(), n&
ar = Range("g1:g" & [g65536].End(3).Row).Value
ReDim b(1 To UBound(ar) / 4, 1 To 4)
For i = 1 To UBound(ar)
n = n + 1
For j = 0 To 3
b(n, j + 1) = ar(i + j, 1)
Next
i = i + j - 1
Next
[i1].Resize(n, 4) = b
End Sub

複製代碼

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

10^#

發表於 2018-12-27 21:21 | 只看該作者

回復 9# ikboy

不懂這些行號的意思
可以有說明嗎? 想學習

開心學習,學習很開心

靜思自在 : 能幹不幹，不如苦幹實幹。

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