|
|
|
| |
|
|
| |
참고하세요.
Option Explicit
'--------------------------------------------------------------
Function get_company(rngx As Range, rngY As Range) As Variant
'--------------------------------------------------------------
'Dim rngx As Range: Set rngx = Range("B2:F9")
'Dim rSearch As Range: Set rSearch = Range("B12")
Dim vY As String: vY = Replace(Trim(rngY.Value), " ", "")
Dim r As Long, c As Long
Dim varX As Variant: varX = rngx.Value
Dim vResult As Variant: vResult = ""
Dim v As Variant: v = ""
'Dim bFind As Boolean: bFind = False
For r = 2 To UBound(varX, 1)
'-------------------------------
For c = 1 To UBound(varX, 2)
'-----------------------------
v = Replace(Trim(varX(r, c)), " ", "")
'----------------------------------
If v <> "" And vY Like "*" & v & "*" Then
'----------------------------------
vResult = varX(1, c)
get_company = vResult
Exit Function
End If
Next c
'If bFind Then Exit For
Next r
get_company = vResult
End Function |
|
|
[불량 게시물 신고] |
|
|
|
|
작성일 : 2019-04-12(20:19)
최종수정일 : 2019-04-12(20:19) |
| |
    |
 
  |
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
