시트 1의 특정 열 값이 x =

인 경우 새 시트로 복사 된 전체 행이 필요합니다. 현재 공유 Excel 통합 문서를 사용하여 소규모 비즈니스의 재고를 추적하고 있습니다. 시트 "재고 목록"에는 각 제품의 가격, 공급 업체, 비용 등이 나열되어 있습니다. 제품을 주문해야하는 경우 "x"를 표시하기 위해 작성한 열도 있습니다. 따라서 해당 열 (열 E)에 "x"가 있으면 전체 행이 복사되어 새 시트에 붙여집니다. 이 새 시트에서 인벤토리 목록의 열 P 인 공급 업체별로 구성하길 원합니다. 도움을 주시면 알려 주시기 바랍니다. 고맙습니다.시트 1의 특정 열 값이 x =

출처

2014-03-31 user3481852

추가하시기 바랍니다 자세한 내용은 당신이 이미 시도 한 내용이 존재 가정 이러한 노력의 결과, 그리고 왜 결과가 좋지 않은지에 대한 정보를 얻을 수 있습니다. 이는 우리가 좋은 해결책을 제시하는 데 도움이 될 것입니다. (또한 SO를 검색하면 비슷한 질문을하는 많은 사람들이 생겨날 것입니다 :)) – user1759942

그리고 올바른 방향으로 밀어주기 위해서 : Cells.find ("*", [A1],,, xlByRows, xlPrevious). Row'는 시트의 행 수를 찾습니다. for 루프를 사용하여 각 행을 처리하고 'cells (i, col) .value'여기서 i는 루프 색인이고, col은 x 값을 가진 열입니다. '는 셀 값을 검사합니다. 'cells (i, col) wholeRow.copy Destination : = Sheet.Range (x, y)'는 행을 복사/붙여 넣을 것입니다 :) – user1759942

이 당신이 데이터 시트에서 매크로를 실행하고 이미 새 시트라는 시트 (관련 코드 포함)뿐만 아니라

Sub dural() 
Dim s1 As Worksheet, s2 As Worksheet 
Set s1 = ActiveSheet 
Set s2 = Sheets("New Sheet") 
Dim K As Long, N As Long, i As Long 

K = 1 
N = s1.Cells(Rows.Count, "E").End(xlUp).Row 
For i = 1 To N 
    With Cells(i, "E") 
     If .Value = "x" Then 
      .EntireRow.Copy s2.Cells(K, 1) 
      K = K + 1 
     End If 
    End With 
Next i 
End Sub

출처

2014-03-31 17:33:01

시트 1의 특정 열 값이 x =

답변

관련 문제