麻辣家族討論版版 » VB 與 VB.Net » 懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝

返回列表下一主題上一主題發帖

懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝

小學生 Rank: 1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-9-5 22:49 | 只看該作者

懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝

高手大大請教如何用VB將一堆data轉成表格,謝謝

table.zip (16.78 KB)

樓主熱帖

收藏

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-9-6 00:44 | 只看該作者

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

回復 1# jysun1

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

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

複製代碼

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

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2018-9-6 00:51 | 只看該作者

回復 1# jysun1

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

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

小學生 Rank: 1

帖子: 23
主題: 8
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 64bit
閱讀權限: 10
性別: 男
註冊時間: 2017-8-13
最後登錄: 2019-1-13

4^#

發表於 2018-9-6 12:17 | 只看該作者

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

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

返回列表下一主題上一主題