|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(2007):
* 아래줄에 질문을 작성하세요 >>
Sub aVlookupLLeft()
Dim rngC As Range, rngR As Range, rngV As Range
Dim rngCl As Range, rngRl As Range, rngDl As Range
Dim strCl As String, strRl As String, strM As String
strM = "바위"
Set rngR = Range("a:a").SpecialCells(xlCellTypeConstants)
Set rngDl = rngR.Offset(0, 3)
rngRl.Formula = "=left(" & rngR.Address & ",find(""" & strM & """," & rngR.Address & ")-1)"
' rngCl = Application.Left(rngR.Address, Find("바위", rngR.Address) - 1)
rngCl = Application.WorksheetFunction.Left(rngR, 2)
End Sub
위코드에서 Left 워크쉬트 함수는 사용 되는데 어떻게 해야
rngCl = Application.WorksheetFunction.Left(rngR, 2) 이부분을
작동 할까요 |
|