- Option Explicit
- Sub tq()
- Dim ar, br, i%, k%, m%
- ar = [c6].CurrentRegion
- br = Range("k6:aq" & Cells(Rows.Count, 3).End(xlUp).Row)
- For i = 2 To UBound(ar)
- For m = 1 To UBound(ar, 2)
- For k = 1 To UBound(br, 2)
- If ar(i, m) = br(1, k) Then
- br(i, k) = ar(i, m)
- End If
- Next k
- Next m
- Next i
- [k6].Resize(UBound(br, 1), UBound(br, 2)) = br
- End Sub
复制代码 |