- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 1
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 贵州贵阳
- 註冊時間
- 2025-9-7
- 最後登錄
- 2025-9-10
|
2#
發表於 2025-9-9 14:22
| 只看該作者
本帖最後由 Dwy123 於 2025-9-9 14:25 編輯
Public Function DnLook(区域, 取值列, 查找值1, 对应列1, Optional 查找值2, Optional 对应列2) As String
'2021/2/19编写
'在VLOOKUP查找有重复值时可加一条件查找
'对应列1只有一个查找值1时只用查找值1查找，当对应列1有重复查找值1时，加用查找值2在对应列2查找
Dim j As Integer
Dim k As Integer
Dim co As New Collection
Dim reSolt As String
For j = 1 To 区域.Rows.Count
'For k = 1 To 区域.Columns.Count
If 区域(j, 对应列1) = 查找值1 Then
reSolt = reSolt & 区域(j, 取值列) & vbCrLf
co.Add j
End If
'Next k
Next j
If co.Count = 1 Then
DnLook = Left(reSolt, Len(reSolt) - 2) '去除最后的回车换行
Exit Function
End If
If Not IsMissing(查找值2) And Not IsMissing(对应列2) Then
reSolt = ""
For Each d In co
If 区域(d, 对应列2) = 查找值2 Then
reSolt = reSolt & 区域(d, 取值列) & vbCrLf
'co2.Add D '又有参数3时加
End If
Next
End If
DnLook = Left(reSolt, Len(reSolt) - 2) '去除最后的回车换行
End Function |
|
