VBA 코딩 - Excel에서 셀 범위 복사

Question

사과해야 할 일은 간단하지만 몇 년 동안 사용하지 않으면 VBA를 다시 배우고 있습니다. 해당 통합 문서 내에서 해당 셀 내의 텍스트를 기반으로 특정 셀을 찾아야하는 워크 시트가 있습니다. 그런 다음이 셀이 포함 된 전체 행과 아래의 세 행을 복사하여 네 개의 전체 행 범위를 복사해야합니다. 어떤 도움을 주시면 감사하겠습니다.

Answer 1

당신은 재료를 붙여 넣기 할 위치를 표시하지만,하지 :

Sub qwerty() 
    Dim s As String, sh As Worksheet, r As Range 

    s = "happiness" 
    For Each sh In Sheets 
     Set r = Cells.Find(What:=s) 
     If Not r Is Nothing Then 
      r.Resize(4, 1).EntireRow.Copy 
     End If 
    Next sh 
End Sub 

는 여기에서 우리는 행복을 찾고있다.