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

작성자:  

 삼마니 (piranha)

추천:  2
파일:     조회:  952
제목:   WorksheetFunction.Filter 에러
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 오피스 365

* 아래줄에 질문을 작성하세요 >>

Sub 매크로1()
dim g
Set myRange = Worksheets("테이블").Range("A2:H15")
Set fRange = Worksheets("테이블").Range("b2:b15")
For i = 1 To 5
Sheets.Add after:=Sheets(i)
Worksheets("테이블").Select
k = Cells(i, 15).Value
Sheets(i + 1).Name = k
Worksheets("테이블").Range("a1:h1").Copy
Sheets(i + 1).Activate
Cells(1, 1).Select
ActiveSheet.Paste
g = Application.WorksheetFunction.Filter(myRange, fRange = k)
Next
End Sub

이렇게 작성하였는데,
g = Application.WorksheetFunction.Filter(myRange, fRange = k)
이 부분에서 오류가 납니다.
어떻게 고쳐야 하나요
 
[불량 게시물 신고]  
참서리다음 영상에 자세히 설명되어 있습니다.
https://youtu.be/lmImwAcloh8
11-22 (16:08)
삭제 ■신고
삼마니자세한 설명 너무 감사합니다.11-23 (13:01)
삭제 ■신고
        
  

작성일 : 2022-11-19(06:28)
최종수정일 : 2022-11-19(22:01)