コードを追加VBA

Question

の機能「と」私はこれを持っています。それ、どうやったら出来るの？

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