【已解決】 Excel如何將行改為列(不是轉置問題)？
1. 原內容為行（每行5列內容共幾千行）：
列1 列2 列3
列4 列5
行1 1 2 3 4 5 /行2 1 2 3 4 5 /行3 1 2 3 4 5 /以下類同… /…
2. 改為行排列（每12行5列內容共12組，排為一行）
列1 列2 列3
列4 列5 列6
列7 列8 列9
列10 ……(60列)
原1-12行 1 2 3 4 5 1 2 3 4 5 ……(60列) /原13-24行 1 2 3 4 5 1 2 3 4 5 ……(60列) /原25-36行 1 2 3 4 5
1 2 3 4 5 ……(60列) /以下類推 …
本人不會編寫宏，讓您見笑曾費勁手工移動錄制了一個取2400行（每行5列內容）改列的宏。因原有工作表行不斷增加，經常需要行改列作其它用途，錄制的宏不能滿足需要。
麻煩大家幫助寫一自動循環取12行5列內容排列為一行的宏。
規律：
1. 1-12行1-5列內容排在第1行（第一行1-5列、第二行1-5列、類推，完成為60列）
2. 13-24行1-5列內容排在第2行（第13行1-5列、第14行1-5列、類推）
3. 25-36行1-5列內容排在第3行（第25行1-5列、第26行1-5列、類推）
4. 以下類推 …
最佳答案 2023-04-06 03:15
解答：Sub 轉換()
Dim numcol As Integer
Dim numrow As Long
Dim i As Long
Dim x As Integer
Dim numperrow As Integer
numperrow = InputBox("請輸入每行要填的數據行的數目:")
Range("數據").Select
numrow = Selection.Rows.Count '數據區的行數
numcol = Selection.Columns.Count '數據區的列數
x = numperrow * numcol
Range("a1").Select
For i = 1 To numrow '以數據的每一行為單位進行剪切
Range("數據").Rows(i).Cut
ActiveSheet.Paste
Selection.Offset(, numcol).Select
If (i Mod numperrow) Then '判斷是否要換行
Else: Selection.Offset(1, -x).Select
End If
Next i
End Sub
'本程序需要把要變換的數據命名為"數據"(數據區的列數可以任意,不一定是5)方法:選中該區域,在名稱框內輸入"數據"即可,然后按程序要求輸入每行要填的數據行的數目(如本例中的12)
感謝您的支持，請隨意打賞。您的贊賞將鼓勵我繼續創作！
掃碼關注微信公眾號
