VBA常用小代码305：数据模糊匹配查询

正文

请到「今天看啥」查看全文

'xlpart模糊匹配模式

If Not cll Is Nothing Then

'如果有查找到相应单元格则cll必然非nothing，那么

arr(i, 2) = cll.Offset(0, 1)

'对查找到的单元格通过offset偏移取值

Else

arr(i, 2) = "" '否则返回空文本

End If

Next

With Range("e1:f" & Cells(Rows.Count, 5).End(xlUp).Row)

.NumberFormat = "@" '设置单元格文本格式，避免文本数值变形

.Value = arr '将arr放回单元格区域

End With

MsgBox "ok"

End Sub

---

2，

请到「今天看啥」查看全文