- 帖子
- 6
- 主題
- 3
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2014-1-3
- 最後登錄
- 2021-6-20
|
[發問]如何將範圍內符合條件的字串合併
本帖最後由 chthonicfreddy 於 2016-11-29 11:47 編輯
我在網路上參考了以下範例
類似vlookup功能，希望能修改將範圍內符合條件儲存格內的字串合併為一個字串
感謝各位大大的指導
 test.rar (12.41 KB)
Function WLOOKUP(X As Variant, M As Range, A As Byte, B As Integer)
'X 條件
'M 要查詢的單列範圍
'A 返回第n個符合條件的結果(255)
'B 返回結果的列索引，可以是0或負數
' 用於數據查詢的單列範圍M所在列的值為1，代表第1列
' 右側第一列為2,3,4.....;左側第一列為0,-1,-2.....
Dim i As Integer, mr As Range, y As Integer
i = Application.WorksheetFunction.CountIf(M, X)
'Set M =Intersect(M.Parent.Usedrange,M)
For Each mr In M
If mr.Value = X Then
y = y + 1
If y = A Then
WLOOKUP = mr.Offset(0, B - 1).Value
Exit Function
End If
End If
Next mr
WLOOKUP = ""
End Function |
|
發表於 2016-11-29 11:45
| 
