Excel - 조건 범위가 충족되면 복사

발행물

입력 범위가 다른 시트에서 충족되는 경우 시트에서 다른 시트로 데이터를 복사하고 싶습니다.

• 내 모든 데이터는 "삽입"행이라고 불리는 시트에 있으며, G 시트 "삽입"에는 사람들의 이름이 있습니다.
• 시트 이름 "Dom"범위 B4 : b17에는 해당 팀의 이름 목록이 있습니다.
• "삽입"시트에 나타나는 Dom의 시트에 나열된 이름이 있다면 그 행을 Dom 시트의 75 행 이상으로 복사해야합니다.

해결책

"행, G 시트"삽입 "사람들의 이름을 가지고"

G는 행만 g 열로 가정 할 수 없으며 샘플 시트를 만들어야했습니다.

삽입 시트는 A 열에서 H 열까지와 같이 보입니다.

col.G col H

 이름 데이터 a 1 s 2 d 3 f 4 g 5 h 6 

돔 시트가 이렇게 될거야.

 col B row4 adgkwryuzcbmnp 

매크로를 실행하여 매크로를 작성하고 이것이 원하는 것인지 확인하십시오. 삽입물과 돔 시트의 작은 추출물을 주면 도움이 될 것입니다. 원하는 경우 데이터에 맞게 매크로를 수정할 수 있습니다.

상황이 잘못되면 원래 파일을 안전하게 저장하십시오.

 Sub test () Dim cfind as 범위, 범위, x As String, dest 범위, j 워크 시트 ( "dom")와 함께 Long j = 1 각 C In .Range ( "B4 : B17") x = c ( "insert") .Credind = .Cells.Find (what : = x, lookat : = xlWhole)를 설정하지 않으면 cfind.EntireRow.Copy는 .Range ( "A75")로 끝납니다. 오프셋 (j, 0) .PasteSpecial j = j + 1 다음 c End With End Sub Sub 워크 시트 ( "dom") 범위 (.Range ( "A75"), .Cells (Rows.Count, "A" )). End Sub를 사용하여 EntireRow.Delete End 

이 팁에 대한 Venkat에게 감사드립니다.