Function GetCTNo(xA As Range, xB As Range, xNo)
'↑自訂函數GetCTNo(),宣告變數:(xA,xB)是儲存格變數,xNo是通用型變數
'函數結果是字串
Dim i%, TT$
'↑宣告變數:i是短整數,TT是字串變數
For i = 1 To xA.Count
'↑設順迴圈!i從1 到xA變數數量(儲存格數量)
If xA(i) = xNo Then TT = TT & "," & xB(i)
'↑如果xA i迴圈儲存格的值與 xNo變數相同!
'就令TT變數將xB i迴圈儲存格的值納入到後方,以逗號間隔
Next i
GetCTNo = Mid(TT, 2)
'↑令GetCTNo函數回傳 TT變數從第2字元開始的後方字串
End Function