標題: [發問] 轉置詢問 [打印本頁]

---

作者: dnadark    時間: 2015-7-28 21:14     標題: 轉置詢問

請問如果要將工作表1的資料轉置成工作表2的資料要如何編寫呢？謝謝！
1. 資料來源工作表1中的abc欄
2.以a欄為主查詢貼到工作表2，並將相同的資料往後貼在工作表2
   a欄每筆資料數量不一定，甲有四筆，乙有十筆，…
3.顏色只是為了讓大家看得更清礎，並不需標示顏色

---

作者: no3-taco    時間: 2015-7-29 19:41

回復 1# dnadark

參考看看!!!

1. Sub test()
   
2. Dim arr: arr = Worksheets("工作表1").[c1:e15]
   
3. Dim i, j, k: i = 1: k = 2
   
4. With Worksheets("工作表2")
   
5.     '.UsedRange.Clear
   
6.     .Cells(1, 1) = arr(1, 1)
   
7.     For j = 2 To 15
   
8.         If arr(j, 1) <> arr(j - 1, 1) Then
   
9.             i = i + 1: k = 2: j = j + 1: .Cells(i, 1) = arr(j, 1)
   
10.         End If
    
11.         .Cells(i, k) = arr(j, 2)
    
12.         .Cells(i, k + 1) = arr(j, 3)
    
13.         k = k + 2
    
14.     Next j
    
15. End With
    
16. End Sub

複製代碼

---

作者: dnadark    時間: 2015-7-30 12:04

測試沒有問題，謝謝no3-taco ~~~

---

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