少如 发表于 2013-7-31 16:11
老师: 再看看附件, 为啥直到500行都有数据?
另外, 刷新时, 应先清除原姓名, 否则, 变更房
地下室号或车 ...
Sub chazhao()
Range("c8:c500,j8:j500,n8:n500").Select
Selection.ClearContents
arr = Sheets("数据库").Range("b5:s" & Range("b65536").End(xlUp).Row)
brr = Sheets("1号楼1单元").Range("c8:n" & Cells(Rows.Count, 6).End(xlUp).Row)
For k = 1 To UBound(brr)
For q = 1 To UBound(arr)
If brr(k, 4) = arr(q, 4) Then
brr(k, 1) = arr(q, 1)
brr(k, 4) = "'" & brr(k, 4)
End If
If brr(k, 7) = arr(q, 11) Then
brr(k, 8) = arr(q, 1)
brr(k, 7) = "'" & brr(k, 7)
End If
If brr(k, 11) = arr(q, 18) Then
brr(k, 12) = arr(q, 1)
End If
Next
Next
Sheets("1号楼1单元").Range("c8:n" & Cells(Rows.Count, 6).End(xlUp).Row) = brr
End Sub |