標題: 懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝 [打印本頁]

---

作者: jysun1    時間: 2018-9-5 22:49     標題: 懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝

高手大大請教如何用VB將一堆data轉成表格,謝謝
[attach]29350[/attach]
[attach]29351[/attach]

---

作者: faye59    時間: 2018-9-6 00:44

本帖最後由 faye59 於 2018-9-6 00:46 編輯

回復 1# jysun1


    目前依照你給的檔案寫，寫到你原本的檔案時請自行修改。
先試試看VBA的部分。

1. Sub ex()
   
2. For Each aa In Sheets("工作表1").Range([A3], [A3].End(xlDown))
   
3. If aa.Offset(, 0) = "區" Then '如果等於區才執行
   
4.     Select Case aa.Offset(, 1) '要回傳的位置
   
5.     Case "1"
   
6.         X = 10
   
7.     Case "2"
   
8.         X = 11
   
9.     Case "3"
   
10.         X = 12
    
11.     Case "4"
    
12.         X = 13
    
13.     Case "5"
    
14.         X = 14
    
15.     End Select
    
16.     If Sheets("工作表1").Cells(4, X) = "" Then '儲存格為空白不換行
    
17.     Sheets("工作表1").Cells(4, X) = aa.Offset(3, 1)
    
18.     Else
    
19.     Sheets("工作表1").Cells(4, X) = Sheets("工作表1").Cells(4, X) & Chr(10) & aa.Offset(3, 1)
    
20.     End If
    
21. End If
    
22. Next
    
23. End Sub

複製代碼

依照你給的檔案區、路、棟，只要"區"一樣"路"跟"棟"就會是一樣，所以只回傳樓的資料填入。

---

作者: faye59    時間: 2018-9-6 00:51

回復 1# jysun1


    不知道你的檔案來原是什麼，Excel?txt?Access?
Excel的話用VBA就很好做了，
除非是要呼叫其它資料來源再用VB.net做比較妥。

---

作者: jysun1    時間: 2018-9-6 12:17

回復 2# faye59
:D 非常感謝大大的回覆馬上來試一下

---

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