- 帖子
- 2839
- 主題
- 10
- 精華
- 0
- 積分
- 2895
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-2-15
|
本帖最後由 准提部林 於 2021-9-13 18:59 編輯
回復 36# wayne0303
Sub TEST_A1()
Dim xU As Range, Arr, A, V, xR As Range, xD, T$
Set xD = CreateObject("Scripting.Dictionary")
Set xU = [工作表1!f2:ad73]
For Each A In Array("平彎", "右螺旋", "左螺旋")
For Each xR In xU.Find(A, Lookat:=xlWhole).Resize(1, 100) '找到關鍵字, 向右擴展100欄, 若不夠用自改下(此時就不用管合併格了)
If xR(3) <> "" Then xD(V & xR(3)) = xR(2)
Next
V = V + 1
Next
'---------------------------
Arr = Range([a1], [a65536].End(3))
For i = 1 To UBound(Arr) 'A欄資料由第一行開始, 要改成 FOR I=1 TO ??
T = Replace(Replace(Arr(i, 1), "°", ""), "仰角", "/")
T = Split(Replace(Replace(T, "RR", "1R"), "LR", "2R") & "轉", "轉")(0)
Arr(i, 1) = xD(T) '同行寫入, 這就不須再用 i-4
Next i
[b1].Resize(UBound(Arr)) = Arr '結果資料置入, 須同步從B1下手
End Sub
========================================== |
|
發表於 2021-9-11 10:48
| 
