Comment faire pour supprimer la ligne en fonction de la valeur de la cellule

J'ai une feuille de calcul, j'ai besoin de supprimer des lignes en fonction de la valeur de la cellule ..

Cellules à vérifier sont dans la Colonne A ..

Si la cellule contient "-" .. Supprimer la Ligne

Je ne peux pas trouver un moyen de le faire .. j'ouvre un classeur, copie de tout le contenu dans un autre classeur, puis de supprimer des lignes et des colonnes entières, mais il existe des lignes, qui sera enlevé basée sur la valeur de la cellule.

Besoin D'Aide Ici.

Mise à JOUR

Échantillon de Données que j'ai

Comment faire pour supprimer la ligne en fonction de la valeur de la cellule

Veuillez préciser: vous avez besoin de vérifier les cellules dans Un pour - comme l'ensemble du contenu d'une cellule, ou de TOUTE cellule - char, par exemple,-abc?
toute cellule qui contient - .. en Fait, toutes les cellules de cette colonne sont des nombres entiers, mais certaines cellules ont un - entre les entiers
coild s'il vous plaît partagez un exemple de capture d'écran - il n'y a toujours au moins une contradiction, car si "certaines cellules ont un - entre les entiers" signifie que leur contenu est une CHAÎNE de caractères.
J'ai ajouté une capture d'écran pour un échantillon de données

OriginalL'auteur sikas | 2013-01-30

  1. 11

    La capture d'écran a été très utile, le code suivant va faire le travail (en supposant que les données sont situés dans la colonne de départ A1):

    Sub RemoveRows()

Dim i As Long

i = 1

Do While i <= ThisWorkbook.ActiveSheet.Range("A1").CurrentRegion.Rows.Count

    If InStr(1, ThisWorkbook.ActiveSheet.Cells(i, 1).Text, "-", vbTextCompare) > 0 Then
        ThisWorkbook.ActiveSheet.Cells(i, 1).EntireRow.Delete
    Else
        i = i + 1
    End If

Loop

End Sub

    Exemple de fichier est partagé: https://www.dropbox.com/s/2vhq6vw7ov7ssya/RemoweDashRows.xlsm

    Pour ce code, vous n'avez pas besoin de spécifier la plage -il vérifie que toutes les lignes en continu.
    Mais, j'ai - dans toutes les cellules d'une autre colonne .. est-ce que ça va l'enlever??
    non, il suffit d'ajouter vos données dans mon fichier de l'échantillon de la colonne B et de l'exécuter pour tester.
    J'ai déjà appliqué à mon fichier de production .. Il a travaillé comme un charme!! MERCI!
    heureux de vous aider)

    OriginalL'auteur Peter L.

  2. 18

    La meilleure façon de le faire serait d'utiliser un filtre.

    Vous pouvez filtrer pour toutes les cellules dans la colonne A qui n'ont pas de "-" et copier /coller, ou (ma méthode préférée) filtre pour toutes les cellules ont un" -", puis sélectionnez tous les et supprimez - une Fois que vous retirez le filtre, vous êtes de gauche avec ce que vous avez besoin.

    Espère que cette aide.

    Je suis à la recherche pour le code VBA 🙂
    ... Vous pouvez enregistrer une macro qui fait cela, et vous avez terminé...
    J'ai essayé mais je ne pouvais pas!!
    Ne fonctionne pas .. j'ai essayé de nouveau .. Il supprime toutes les lignes!! parce que certaines des cellules autres que la colonne A obtenu -: (
    Je suis venu ici à la recherche d'une solution pas forcément VBA ou code, pour moi, la combinaison de filtre et de mise en forme conditionnelle fonctionne bien, le format de la lumière élevée de filtre à l'exportation/supprimer

    OriginalL'auteur John Bustos

  3. 9

    Vous pouvez copier une formule comme celle-ci dans une nouvelle colonne...

    =IF(ISNUMBER(FIND("-",A1)),1,0)

    ... le tri sur cette colonne, mettez en surbrillance toutes les lignes où la valeur est 1 et les supprimer.

    Merci, mais je suis à la recherche pour le code VBA

    OriginalL'auteur weir

  4. 3

    Si vous êtes fichier n'est pas trop grande, vous pouvez toujours trier par la colonne qui a le - et une fois qu'ils sont tous ensemble, il suffit de la sélectionner et les supprimer. Puis re-trier ce que vous voulez.

    Simple et j'aime ça.

    OriginalL'auteur Jorjo Peralta

  5. 2

    si vous souhaitez supprimer des lignes en fonction de certains aspects spécifiques de la valeur de la cellule.
    supposons que nous avons un fichier contenant 10000 lignes, et un champs ayant la valeur NULL.
    et sur cette base la valeur null souhaitez supprimer toutes les lignes et les enregistrements.

    voici quelques astuce simple.
    D'abord ouvrir de Trouver la boîte de dialogue Remplacer, et sur l'onglet Remplacer, faire toutes ces cellules contenant des valeurs NULL à Vide.
    ensuite, appuyez sur la touche F5 et sélectionnez l'option Blanc, maintenant, cliquez-droit sur la feuille active et sélectionnez supprimer, puis l'option pour l'Ensemble de la ligne.

    il va supprimer toutes ces lignes en fonction de la valeur de la cellule contenant le mot NULL.

    OriginalL'auteur zaheer

  6. 1

    Vous pouvez faire une boucle à travers chacune des cellules de votre gamme et l'utilisation de la InStr fonction pour vérifier si une cellule contient une chaîne de caractères, dans ton cas, un trait d'union.

    Sub DeleteRowsWithHyphen()

    Dim rng As Range

    For Each rng In Range("A2:A10") 'Range of values to loop through

        If InStr(1, rng.Value, "-") > 0 Then 'InStr returns an integer of the position, if above 0 - It contains the string
            rng.Delete
        End If

    Next rng

End Sub

    OriginalL'auteur Francis Dean

  7. 1

    C'est le filtre automatique de macro vous pourriez base d'une fonction de:

    Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$10").AutoFilter Field:=1, Criteria1:="=*-*", Operator:=xlAnd
Selection.AutoFilter

    - Je utiliser ce filtre automatique fonction permettant de supprimer les lignes correspondantes:

    Public Sub FindDelete(sCol As String, vSearch As Variant)
'Simple find and Delete
Dim lLastRow As Integer
Dim rng As Range
Dim rngDelete As Range
    Range(sCol & 1).Select
    [2:2].Insert
    Range(sCol & 2) = "temp"
    With ActiveSheet
        .usedrange
            lLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
        Set rng = Range(sCol & 2, Cells(lLastRow, sCol))
            rng.AutoFilter Field:=1, Criteria1:=vSearch, Operator:=xlAnd
        Set rngDelete = rng.SpecialCells(xlCellTypeVisible)
            rng.AutoFilter
            rngDelete.EntireRow.Delete
        .usedrange
    End With
End Sub

    l'appeler comme:

    call FindDelete "A", "=*-*"

    Il m'a sauvé beaucoup de travail. Bonne chance!

    Comment pourrais-je le faire en C#?

    OriginalL'auteur BeachBum68