標題: [發問] 如何使用迴圈做欄列替換 [打印本頁]

---

作者: 吳毅謙    時間: 2013-7-28 15:38     標題: 如何使用迴圈做欄列替換

小弟學VBA不久現在正在學迴圈

如何使用迴圈將我的資料欄列替換??

如圖(使圖1變成圖2)

[attach]15614[/attach]

[attach]15615[/attach]

---

作者: GBKEE    時間: 2013-7-28 16:22

回復 1# 吳毅謙

1. Option Explicit
   
2. Sub EX()
   
3.     Dim Ar(), xRow As Integer, xCol As Integer
   
4.     Ar = Range("a1").CurrentRegion.Value '從儲存格轉換的陣列:下限元素索引從 1 開始
   
5.     Range("a1").CurrentRegion = ""
   
6.     For xRow = 1 To UBound(Ar, 1)               '
   
7.         For xCol = 1 To UBound(Ar, 2)
   
8.             Cells(xCol, xRow) = Ar(xRow, xCol)
   
9.         Next
   
10.     Next
    
11. End Sub

複製代碼

---

作者: 吳毅謙    時間: 2013-7-28 16:34

回復 2# GBKEE


謝謝GB版大^^

語法雖然不是都看得懂

我再研究一下囉

---

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