- 帖子
- 86
- 主題
- 15
- 精華
- 0
- 積分
- 148
- 點名
- 54
- 作業系統
- Win 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-1-17
- 最後登錄
- 2024-5-2
|
本帖最後由 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-8-31 18:28
| 
