怎么使用代码做出

mmc998

Book当前值.rar (10.1 KB, 下载次数: 12)

2018-6-24 22:44 上传

点击文件名下载附件

ygwyj

Sub 遗漏值()
Dim i, j, l
arr = Range("f7:an7")
For i = 9 To [a65536].End(3).Row
  For j = 1 To 5
    For l = 1 To UBound(arr, 2)
     If Cells(i, j) = l Then
       Cells(i, 7 + j) = arr(1, l): GoTo line
     End If
    Next
line:
  Next
Next
End Sub

ygwyj

请查看附件：

lsc900707

1. Sub gj23w98()
   
2.     arr = [f1:an7]
   
3.     brr = [a9].CurrentRegion
   
4.     ReDim crr(1 To UBound(brr), 1 To 5)
   
5.     For i = 1 To UBound(brr)
   
6.         For j = 1 To UBound(brr, 2)
   
7.             For k = 1 To UBound(arr, 2)
   
8.                 If brr(i, j) = k Then
   
9.                     crr(i, j) = arr(7, k)
   
10.                 End If
    
11.             Next
    
12.         Next
    
13.     Next
    
14.     [h9].Resize(i - 1, 5) = crr
    
15. End Sub

复制代码

lsc900707

参考附件：