로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
몇 일 전에 질문 드렸다가. 폼이 이상해서 삭제후 다시올립니다.
첨부파일 부탁 합니다.
2013.04.08 14:47:03 *.104.126.21
북곰님..
고급필터를 활용하시면 됩니다.
특정 시트에 집어 넣는 것은 VBA를 이용하시면 되구요..
다운받기 : abyul.com_20130408_splitDataWithAdFilter.xlsm
그리고 최근 질문에 대한 답변에 피드백이 없습니다.
새로 질문하시기 전에 기존 질문 답변에 대한 피드백을 꼭 확인하시고 질문하시기 바랍니다.
답변에 대한 피드백은 기본 에티켓이 아닌가 합니다.
Option Explicit
'### 고급필터를 활용한 데이터 분리 작업
Sub abSplitDataWithAdFilter()
Dim rSource As Range, rCriteria As Range
Dim shtTarget As Worksheet, rTarget As Range
Set rSource = Sheets("SIZE 225 2000족").Range("B2:F7")
Set rCriteria = rSource.Parent.Range("L1:L2")
On Error Resume Next
Set shtTarget = Sheets("Sheet" & rSource.Parent.Range("B1").Value)
If Err.Number <> 0 Then
Set shtTarget = Sheets.Add(after:=Worksheets(Worksheets.Count))
shtTarget.Name = "Sheet" & rSource.Parent.Range("B1").Value
On Error GoTo 0
End If
shtTarget.UsedRange.Clear
Set rTarget = shtTarget.Range("A1")
rSource.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rCriteria, _
CopyToRange:=rTarget, Unique:=False
shtTarget.Activate
End Sub
2013.04.08 19:40:19 *.167.255.233
2013.04.12 00:41:11 *.130.73.75
문의하신 동작을 수행하려면 VBA로 처리할 수 밖에 없습니다.
공장이 바뀔때마다 아래쪽 데이터도 변경되는 형태인 것 같은데요..
그럴 경우 각 시트에 수식을 미리 심어넣고 참조하게할 수도 없겠네요..
VBA를 사용할 수 밖에 없구요.. VBA를 사용하지 않으신다면.. 해당 기능은 구현할 수 없습니다.
VBA는 단순 작업을 줄여주는 엑셀의 중요한 기능이니까요.. 꼭 익혀보시길 권해드립니다.
도움이 되셨기를.. ^^
새 창으로
선택한 기호
abyul에서 색상표불러오기 어떻게 하나요? [1]
안녕하세요 가입후 첫 질문 입니다. [특정문자열 포함 데이터 분류&추출방법] [2]
날짜입력하면 다음시트의 같은 날짜에 입력되는 방법 좀 알려주세요~ [2]
엑셀일반 엑셀 질문 몇가지 드립니다. [1]
직장상사에게 갈굼을 당하는 저를 도와주세요ㅠ.ㅠ [3]
완전초보입니다 [1]
아별님!! 또 도와주세요...ㅠㅠ [1]
엑셀일반 엑셀 파일들끼리 연결(??), 호환 이 안돼는거 같습니다. ㅜㅜ [2]
차트 시작일과 종료일만으로 자동 일정 그래프 작성하기 [1]
웹 커리 질문인데요 ^^ ㅎ [1]
엑셀일반 엑셀 작업한 내용이 안보여요. [5]
VBA 아별님! 엑셀 질문입니다. _ 고급필터를 활용한 데이터 분리 작업(각 시트로 분리) [3]
피벗테이블 엑셀 작업 중, 질문사항 몇개... _ 피벗테이블 계산 필드, 계산 항목 [3]
배열수식 배열수식_rank 질문 _ 2가지 조건으로 순위 정하기 [4]
엑셀일반 혹시 이런것도 가능한가요? (간결한 2가지 질문) - VBA만 실행파일(.exe)로 만들 수 있는지 여부, 외부 파일명 일괄 변경 방법.. [2]
엑셀일반 하이퍼 링크 추가 질문 [1]
메모 편집입니다... [3]
엔터 눌렀을때 이동 [2]
엑셀수식 안녕하세요 질문 좀 드리겠습니다 [2]
VBA [긴급] Range 범위 "A2:A10" -> 를 변수로 받게 하는 방법.. [3]
![[레벨:2]](http://abyul.com/zbxe/modules/point/icons/default/2.gif "포인트:399point (8%), 레벨:2/30"){kind=icon}
북곰
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142224point, 레벨:30/30"){kind=icon}
아별
북곰님..
고급필터를 활용하시면 됩니다.
특정 시트에 집어 넣는 것은 VBA를 이용하시면 되구요..
다운받기 : abyul.com_20130408_splitDataWithAdFilter.xlsm
그리고 최근 질문에 대한 답변에 피드백이 없습니다.
새로 질문하시기 전에 기존 질문 답변에 대한 피드백을 꼭 확인하시고 질문하시기 바랍니다.
답변에 대한 피드백은 기본 에티켓이 아닌가 합니다.
Option Explicit
'### 고급필터를 활용한 데이터 분리 작업
Sub abSplitDataWithAdFilter()
Dim rSource As Range, rCriteria As Range
Dim shtTarget As Worksheet, rTarget As Range
Set rSource = Sheets("SIZE 225 2000족").Range("B2:F7")
Set rCriteria = rSource.Parent.Range("L1:L2")
On Error Resume Next
Set shtTarget = Sheets("Sheet" & rSource.Parent.Range("B1").Value)
If Err.Number <> 0 Then
Set shtTarget = Sheets.Add(after:=Worksheets(Worksheets.Count))
shtTarget.Name = "Sheet" & rSource.Parent.Range("B1").Value
On Error GoTo 0
End If
shtTarget.UsedRange.Clear
Set rTarget = shtTarget.Range("A1")
rSource.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rCriteria, _
CopyToRange:=rTarget, Unique:=False
shtTarget.Activate
End Sub