懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝
- 帖子
- 23
- 主題
- 8
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 64bit
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2017-8-13
- 最後登錄
- 2019-1-13
|
懇求拜託高手大大請教如何用VB將一堆data轉成表格,謝謝
高手大大請教如何用VB將一堆data轉成表格,謝謝
 table.zip (16.78 KB)
|
|
|
|
|
|
|
|
暱稱: 温奇 頭銜: 議論者
中學生
- 帖子
- 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
|
|
|
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。
|
|
|
|
|
暱稱: 温奇 頭銜: 議論者
中學生
- 帖子
- 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做比較妥。 |
|
|
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。
|
|
|
|
|
- 帖子
- 23
- 主題
- 8
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 64bit
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2017-8-13
- 最後登錄
- 2019-1-13
|
4#
發表於 2018-9-6 12:17
| 只看該作者
回復 2# faye59
:D 非常感謝大大的回覆馬上來試一下 |
|
|
|
|
|
|
|
