轉換文字形式搜尋 - Excelㄧ般區

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-11-4

11^# 跳轉到 »

發表於 2021-8-31 18:28 | 顯示全部帖子

回復 17# ML089

回復 wayne0303

公式就是麻煩，只要移動一下就需要修改

最好資料位置，公式位置要跟你元資料一樣， ...
ML089 發表於 2021-8-31 18:09

哈哈~ML089大大，公式是比較好了解啦，不然我ｖｂａ完全苦手，沒基底也看不太懂...
我剛試改了一下可以套用了

非常謝謝大大幫忙~

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-11-4

12^#

發表於 2021-8-31 19:37 | 顯示全部帖子

回復 14# samwang

samwang大大~

2.如果我的表格是必需引用到外部的表格那我要改代碼的哪邊呢？這個部分例如我要引用的外部表格在D:\資料夾123\活頁簿abc 裡的 "d3:w16" 這個範圍該怎麼寫呢？

謝謝

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-11-4

13^#

發表於 2021-9-1 12:18 | 顯示全部帖子

回復 20# samwang

非常感謝samwang大大不厭其煩的幫忙！

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-11-4

14^#

發表於 2021-9-9 16:42 | 顯示全部帖子

本帖最後由 wayne0303 於 2021-9-9 16:56 編輯

回復 20# samwang

samwang大又有問題了~
我的欄列都會(不對等的)增加
我修改了代碼(紅字)範圍部分但好像沒作用...
應該要再改哪邊呢？

Sub 更新()
Dim Arr, xD, T1$, T2$, T$, w1$, w2$, i&, j&, k%
Set xD = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set WB = Workbooks.Open("D:\資料夾123\活頁簿abc.xlsx")
Arr = Range("d3:w16")
WB.Close

For i = 2 To UBound(Arr) Step 6
k = k + 1
For j = 1 To UBound(Arr, 2)
T = Arr(i, j): If T = "" Then GoTo 99
xD(T & "_" & k) = Arr(i - 1, j)
Next j
99: Next i
....
...
....

還有連結外部表格的時候會出現執行階段錯誤'1004':

謝謝

2021-09-09_165136_New.jpg (20.28 KB)

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-11-4

15^#

發表於 2021-9-9 19:41 | 顯示全部帖子

本帖最後由 wayne0303 於 2021-9-9 19:55 編輯

回復 23# samwang

回復 wayne0303

我的欄列都會(不對等的)增加 >> 可以提供實際案例範例，且說明何謂不對等增加? 謝謝
, ↑↑↑不好意思我是指工作上會需要增加
...
samwang 發表於 2021-9-9 17:31

還有連結外部表格的時候會出現執行階段錯誤'1004': >> 請提供範例，謝謝
我就是把這邊的路徑改成公司的區網裡的檔案路徑而已Set WB = Workbooks.Open("公司路徑")，這個我也不知道怎麼提供範例...不能解就這樣吧

謝謝samwang大~

轉換文字形式搜尋_例.rar (17.61 KB)

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-11-4

16^#

發表於 2021-9-10 08:19 | 顯示全部帖子

回復 25# samwang

我的欄列都會(不對等的)增加
>>請問您的資料是從K欄開始嗎? 3個資料的中間不會有其它的資料對吧?>>如附件，實際是從D欄開始

我就是把這邊的路徑改成公司的區網裡的檔案路徑而已Set WB = Workbooks.Open("公司路徑")
>>如您寫的Set WB = Workbooks.Open("公司路徑")，公司路徑就換成實際的路徑即可>>公司路徑就是檔案放置的位置

轉換文字形式搜尋_例1.rar (18.51 KB)

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 178
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-11-4

17^#

發表於 2021-9-10 10:54 | 顯示全部帖子

回復 27# samwang

我就是把這邊的路徑改成公司的區網裡的檔案路徑而已Set WB = Workbooks.Open("公司路徑")
>>如您寫的Set WB = Workbooks.Open("公司路徑")，公司路徑就換成實際的路徑即可>>公司路徑就是檔案放置的位置
>> 檔名是......\活頁簿abc.xlsx，對嗎? >> 檔名是......\○○○統計表.xlsx ←這樣