>source

특정 열 데이터를 사용하여 여러 시트를 만드는 방법을 찾고 있습니다.

Col"A"에 중복 항목이 여러 개 있는 경우 단일 값을 필터링하여 해당 값 이름을 사용하여 새 시트를 만들고 모든 데이터를 복사하여 새로 추가된 시트에 붙여넣습니다.

이 일을 말로 설명할 수 없고 영어가 서툴러 죄송합니다. 예제 워크북을 첨부했습니다.

Sheet1에 열 A를 사용하는 데이터가 있는 경우 code는 여러 시트를 생성합니다. 귀하의 도움에 감사드립니다.

Sub CopyPartOfFilteredRange()
    Dim src As Worksheet
        Dim tgt As Worksheet
        Dim filterRange As Range
        Dim copyRange As Range
        Dim lastRow As Long
        Set src= ThisWorkbook.Sheets("Sheet1")
        Set tgt= ThisWorkbook.Sheets("Sheet8")
        src.AutoFilterMode= False
        lastRow= src.Range("A" &
 src.Rows.Count).End(xlUp).Row
        Set filterRange= src.Range("A1:A" &
 lastRow)
        Set copyRange= src.Range("A1:P" &
 lastRow)
        filterRange.AutoFilter field:=1, Criteria1:="CC"
        copyRange.SpecialCells(xlCellTypeVisible).Copy tgt.Range("A1")
    End Sub

질문에 Google 드라이브에 대한 링크를 포함하지 마십시오. 대신 스크린샷이나 관련 데이터를 텍스트/표 형식으로 제공하세요.

braX2021-11-25 19:57:12

내 질문을 수정함

ShRa2021-11-25 19:57:12

Excel 365를 사용하는 경우 FILTER 기능을 사용하여 이 작업을 수행할 수 있습니다.

Foxfire And Burns And Burns2021-11-25 19:57:12
  • 이전 c# : JsonObject 내부의 JsonArray를 ListView에 표시
  • 다음 reactjs : 머티리얼 UI 텍스트 필드 패턴 매칭