VBA

Question

에와 기능 "과"코드를 추가 나는이있다 :

Dim i As Long 
Dim numFilas As Long 

numFilas = Cells(Rows.Count, 1).End(xlUp).Row 

For i = numFilas To 1 Step -1 
    If WorksheetFunction.CountIf(Range("h:h"), Cells(i, 8)) > 1 Then 
     Rows(i).Delete 
    End If 
Next i 

내가 다른 시트 ("MOV MERCADERIA")을 수정하는 다음 코드에 추가 할 수 있습니다. 어떻게해야합니까?

With Sheets("MOV MERCADERIA") 
    For a = 11 To Range("a40").End(xlUp).Row 
     fila = .Range("a1:a65536").Find("").Row 
     .Cells(fila, 1) = [d7]     'remito 
     .Cells(fila, 2) = CDate([D6])   'fecha 
     .Cells(fila, 3) = [D8]     'cod proveedor 
     .Cells(fila, 4) = [E8]     'proveedor 
     .Cells(fila, 5) = [D9]     'CODIGO responsable 
     .Cells(fila, 6) = [K8]     'tipo 
     For b = 0 To 17 
      If Cells(a, b + 1) <> "" Then 
       col = .Cells(fila, 16).End(xlToLeft).Column + 1 
       .Cells(fila, col) = Cells(a, b + 1) 
      End If 
     Next b 
     .Cells(fila, 26) = [N44] 
    Next a 
End With 

Answer 1

당신은 그냥 어딘가에 With Sheets("MOV MERCADERIA") 후와 End With하기 전에 코드를 삽입과 같이 .rows

와 .Cells와 Cells, range.range와, 그리고 rows를 교체해야

:

Dim i As Long 
Dim numFilas As Long 

With Sheets("MOV MERCADERIA") 

    numFilas = .Cells(.Rows.Count, 1).End(xlUp).Row 

    For i = numFilas To 1 Step -1 
     If WorksheetFunction.CountIf(.Range("h:h"), .Cells(i, 8)) > 1 Then 
      .Rows(i).Delete 
     End If 
    Next i 

End With 

지금 코드는 시트에 작용합니다. MOV MERCADERIA