¨Ì¾Ú³æ§O+¼t§O,§Q¥Î¤½¦¡§PÂ_,Àx¦ì¬O§_¥¿½T
- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2023-9-21
|
¦^´_ 1# VANESSA
½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
¥t¥~Àˬd¤pªín¥[¤J¨ä¥L³æ¸ê°T¦p·Ó¤ù¡A±z´£¨Ñµª®×¦³2µ§¿ù»~¦p·Ó¤ù
Sub test()
Dim Arr, xD, T$, pos%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([j5], [g65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 2)
xD(T) = Array(Arr(i, 3), Arr(i, 4))
Next
Arr = Range([d1], [a65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 3)
If xD.Exists(T) Then
pos = InStr(xD(T)(0), Arr(i, 2))
If pos = 0 Then
Arr(i, 4) = "¿ù»~¡A¦]¬°" & Arr(i, 1) & "+" & Arr(i, 3) & "¡AÀx¦ì" & xD(T)(1)
Else
Arr(i, 4) = "¥¿½T¡A¦]¬°" & Arr(i, 1) & "+" & Arr(i, 3) & "¡AÀx¦ì" & xD(T)(1)
End If
End If
Next
Range("a1").Resize(UBound(Arr), 4) = Arr
End Sub |
-
-
1.JPG
(166.82 KB)
|
|
|
|
|
|
- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2023-9-21
|
¦^´_ 1# VANESSA
±z´£¨Ñµª®×¦³2µ§¿ù»~>> §ó¥¿2#¡A±zªºµª®×¬O¥¿½T¡A§ó·s¦p¤U¡AÁÂÁÂ
Sub test2()
Dim Arr, xD, T$, pos%, a, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([j5], [g65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 2)
xD(T) = Array(Arr(i, 3), Arr(i, 4))
Next
Arr = Range([d1], [a65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 3)
If xD.Exists(T) Then
a = Split(xD(T)(0), ".")
For j = 0 To UBound(a)
If Arr(i, 2) = a(j) Then pos = 1
Next
If pos = 0 Then
Arr(i, 4) = "¿ù»~¡A¦]¬°" & Arr(i, 1) & "+" & Arr(i, 3) & "¡AÀx¦ì" & xD(T)(1)
Else
Arr(i, 4) = "¥¿½T¡A¦]¬°" & Arr(i, 1) & "+" & Arr(i, 3) & "¡AÀx¦ì" & xD(T)(1)
pos = 0
End If
End If
Next
Range("a1").Resize(UBound(Arr), 4) = Arr
End Sub |
|
|
|
|
|
|