問題：b&c欄key完後,自動帶出f&g欄
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B2:C65536").Address <> Union(Target, Range("B2:C65536")).Address Then Exit Sub
Dim arr, brr(), i&, d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheets("name").UsedRange
For i = 2 To UBound(arr)
d(arr(i, 2) & Mid(arr(i, 4), 6, 1) & arr(i, 6)) = Array(arr(i, 7), arr(i, 8))
Next
arr = Cells(Target.Row, 2).Resize(Target.Rows.Count, 3)
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
brr(i, 1) = d(arr(i, 1) & arr(i, 2))(0)
brr(i, 2) = d(arr(i, 1) & arr(i, 2))(1)
Next
l = d.keys
m = d.items
Cells(Target.Row, 6).Resize(i - 1, 2) = brr
End Sub
目前只會一欄，二欄發現卡關，求解 |
發表於 2019-7-5 11:04
| 
