나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 hyh (hyh57)

추천:  2
파일:     Book1(139).xls (36.5KB) 조회:  2038
제목:   WorksheetFunction.Left함수 사용 방법
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(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)   이부분을 
작동 할까요
 
[불량 게시물 신고]  
        
  

작성일 : 2017-12-04(13:30)
최종수정일 : 2017-12-04(13:30)