로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
몇 일 전에 질문 드렸다가. 폼이 이상해서 삭제후 다시올립니다.
첨부파일 부탁 합니다.
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는 단순 작업을 줄여주는 엑셀의 중요한 기능이니까요.. 꼭 익혀보시길 권해드립니다.
도움이 되셨기를.. ^^
새 창으로
선택한 기호
엑셀일반 부분합 질문이요 [1]
엑셀일반 시트의 연도별 사용내역 중 각 시트의 해당연도 페이지만 한꺼번에 인쇄하는 법? [3]
엑셀일반 가입인사겸 질문올립니다. _ 파일오류,매크로바이러스,데이터손실 복구 방법 [3]
엑셀수식 엑셀 수식 질문드려요~ _ 여러 행 단위로 정렬하기, 사용자 지정 목록으로 정렬하기.. [2]
엑셀일반 엑셀 질문있습니다~! [1]
엑셀일반 틀고정 질문입니다. [3]
아뵬님 질문있습니다. [1]
셀서식(표시형식) 엑셀 내용 전환 문의 [8]
함수 질문드립니다. (크거나 같은 값 중 가장 근접한 값 찾기) [2]
피벗테이블 피벗에서 중복값을 하나의 숫자로 판단하여 표기하는 방법 [3]
엑셀수식 indirect 함수사용시 [2]
엑셀일반 엑셀 그래프 관련 질문 [2]
기타 엑셀파일 용량 문제. [1]
엑셀일반 칸에 맞게 붙여넣기 하는법이 궁금해요! [1]
피벗테이블 시간표 관리, 피벗 부분합의 활용 질문?? [5]
엑셀일반 엑셀에서 가로 세로 바꾸기 입니다. [2]
VLookup 앞시트에서 지정 값 정하여 계산 할 수 있나요? [5]
배열수식 엑셀 수식 질문이요 [1]
아별님~~도와주세용... [2]
셀서식(표시형식) 서식이 걸려있는곳에 셀병합시 서식값 나올수 있는 방법. [4]
북곰님..
고급필터를 활용하시면 됩니다.
특정 시트에 집어 넣는 것은 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