|
我没注意到你已经上传了附件,下面是代码。结构是一样的,只是改成了数组:
Range("ag9:bj10000").ClearContents
Dim arr
Dim arr1
arr = Range("q9:ae" & [q100000].End(3).Row)
arr1 = Range("ag2:bj2")
Dim brr()
ReDim brr(1 To UBound(arr), 1 To UBound(arr1, 2))
For i = 1 To UBound(arr)
For k = 1 To UBound(arr1, 2)
bz = False
For j = 1 To UBound(arr, 2)
If arr(i, j) = arr1(1, k) Then
bz = True
Exit For
End If
Next j
If bz Then
brr(i, k) = arr1(1, k)
Else
If j <= 15 Then
brr(i, k) = ""
End If
End If
Next k
Next i
Range("ag9").Resize(UBound(arr), UBound(arr1, 2)) = brr
|
|