標題: 轉置格式 [打印本頁]

---

作者: linsurvey2005    時間: 2018-12-11 22:42     標題: 轉置格式

紅色區塊怎麼轉置為綠色區塊~感謝
[attach]29798[/attach][attach]29799[/attach]

---

作者: ikboy    時間: 2018-12-12 09:26

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

複製代碼

---

作者: hcm19522    時間: 2018-12-12 09:30

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

---

作者: linsurvey2005    時間: 2018-12-12 18:53

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

---

作者: linsurvey2005    時間: 2018-12-12 18:54

回復 3# hcm19522


    感謝幫忙

---

作者: linsurvey2005    時間: 2018-12-12 18:54

回復 2# ikboy


    感謝幫忙

---

作者: linsurvey2005    時間: 2018-12-22 15:44

回復 3# hcm19522


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

---

作者: linsurvey2005    時間: 2018-12-22 15:45

回復 2# ikboy


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

---

作者: ikboy    時間: 2018-12-27 11:38

1. Sub zz()
   
2. Dim ar, b(), n&
   
3. ar = Range("g1:g" & [g65536].End(3).Row).Value
   
4. ReDim b(1 To UBound(ar) / 4, 1 To 4)
   
5. For i = 1 To UBound(ar)
   
6.     n = n + 1
   
7.     For j = 0 To 3
   
8.          b(n, j + 1) = ar(i + j, 1)
   
9.     Next
   
10.     i = i + j - 1
    
11. Next
    
12. [i1].Resize(n, 4) = b
    
13. End Sub

複製代碼

---

作者: linsurvey2005    時間: 2018-12-27 21:21

回復 9# ikboy


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

---

作者: linsurvey2005    時間: 2018-12-27 22:03

我現在的G欄資料不一樣出現狀況[attach]29848[/attach][attach]29849[/attach]

---

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