標題: 可否將直列數值依照固定次數循環 [打印本頁]

---

作者: yueh0720    時間: 2011-12-21 18:15     標題: 可否將直列數值依照固定次數循環

可否將直列數值依照固定次數循環至65536
將數值轉成橫向方向

---

作者: Hsieh    時間: 2011-12-21 18:35

回復 1# yueh0720

1. Sub nn()
   
2. Dim d As Object, r&, Ar()
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. r = 2
   
5. Do Until Cells(r, 3) = ""
   
6. Ar = Application.Transpose(Cells(r, 3).Resize(3, 1).Value)
   
7. d(Cells(r, 2).Value) = Ar
   
8. r = r + 3
   
9. Loop
   
10. [E2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
11. [F2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
    
12. End Sub

複製代碼

---

作者: yueh0720    時間: 2011-12-22 10:15

hsieh 版主
Transpose 轉置指令是否可以說明使用方式
因Excel F1中並無說明
若我要將橫向資料轉成直向是否也可用此指令?

---

作者: Hsieh    時間: 2011-12-22 12:10

回復 3# yueh0720
這是引用工作表函數Transpose的用法
可參考工作表函數Transpose的說明

---

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