VBA (Excel) - Eliminar una fila Resuelto

Question

¡Hola!

Me gustaría saber cómo buscar un valor en una columna y eliminar la fila correspondiente...
Esto es lo que hice:

 Range("A1").Select Do While ActiveCell <> "toto" ActiveCell.Offset(1, 0).Select Loop Selection.Delete Shift:=xlUp

En realidad, no logro seleccionar la fila entera para eliminarla...

¿Alguien tiene alguna solución?...
¡Gracias de antemano! ;o)

Mangda · Accepted Answer

Y simplemente un

Selection.EntireRow.Delete

¿No sería más simple?
O un poco más complicado, pero más simple que lo que se ha propuesto:

Rows(Selection.Row).Delete shift:=xlUp

Pero al menos veo dos problemas en tu código:

Si "toto" aparece dos veces, solo se eliminará una
Si "toto" no aparece nunca, en la línea 65536 tendrás un error por el offset.

Sin saber cuántas filas tienes, podrías poner como código:

For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1 If Cells(i, 1).Value = "toto" Then Cells(i, 1).EntireRow.Delete Next

sabiendo que puedes reemplazar Cells(1, 1).CurrentRegion.Rows.Count por el número de filas correspondiente.

DaNot · Answer

Hola,  Prueba: Range ("A:A").Select Selection.Delete ...  DaNot

DaNot · Answer

Ah, vale...

Aquí tienes una pequeña función que puede serte útil:

 Function GetColumn(aValue As Long) As String If aValue < 26 Then GetColumn = Chr(64 + aValue) Else GetColumn = Chr(64 + (aValue \ 26)) & GetColumn(aValue Mod 26) End If End Function

Esta función devuelve la columna asociada a un número (p. ej., 49 devuelve "AW", 55 devuelve "BC"). Solo te queda:

Range (GetColumn (ActiveCell.Column) & ":" & GetColumn (ActiveCell.Column)).Select Selection.Delete....

DaNot

DaNot · Answer

Es más sencillo de lo que pensaba ;-)
 Existe la propiedad Row de un objeto de tipo Range que contiene el # de la fila. Entonces, basta con usar Range(Trim(Str(ActiveCell.Row)) & ":" & Trim(Str(ActiveCell.Row))).Select  voulou...  DaNot

XRay · Answer

efectivamente, es más sencillo y funciona igual de bien. Para los duplicados, me baso en un código único, así que no hay problema con eso, ¡pero gracias por tu consejo!

seb · Answer

en fait tu veux effacer une ligne dans ton tableau Excel??? mais est elle présente plusieurs fois dans ton tableau cette ligne??

scafandre · Answer

bonjour moi j'aimerai suprimer un ligne entiere qui ne commence pas par un nombre... est-ce possible ?  merci d'avance.

MrB · Answer

y yo busco eliminar las filas cuyas 4 primeras celdas están vacías... Quedo a la espera de su respuesta, gracias de antemano.

poutz · Answer

Hola, he aquí una traducción fiel al sentido del texto original: Hola
tengo un programa de conteo para determinar entradas y salidas por minuto
me gustaría que fuera cada 10 minutos

aquí está el código :
Public FeuilleSource As String

Sub TraitementComptage() Dim TempsDépart As Date Dim DépartComptage As Boolean 'saisir le premier temps constaté sur une campagne de comtage TempsDépart = InputBox("Heure de début de campagne de comptage", "initialisation temps") 'Génération d'une feuille pour chaque touche FeuilleSource = ActiveSheet.Name For i = 1 To 4 Sheets.Add ActiveSheet.Name = "T" & i Next 'Génération Feuille Synthèse Sheets.Add ActiveSheet.Name = "Synthèse" For i = 1 To 4 Range(Chr(i + 66) & 1).Value = "T" & i Next i 'Ventilation des données dans la feuille touche correspondante Sheets(FeuilleSource).Select i = 1 Do While Sheets(FeuilleSource).Range("A" & i).Value <> "" ValeurCellule = Sheets(FeuilleSource).Range("A" & i).Value Sheets(ValeurCellule).Range("A" & i).Value = ValeurCellule Sheets(ValeurCellule).Range("B" & i).Value = Sheets(FeuilleSource).Range("B" & i) Sheets(ValeurCellule).Range("C" & i).Value = Sheets(FeuilleSource).Range("C" & i) Sheets(ValeurCellule).Range("D" & i).Value = Sheets(FeuilleSource).Range("D" & i) Sheets(ValeurCellule).Range("E" & i).Value = Sheets(FeuilleSource).Range("E" & i) i = i + 1 Loop 'Tri des feuilles For i = 1 To 4 Sheets("T" & i).Select Columns("A:G").Select Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Next i 'Insertion d'une colonne contenant l'information de la nieme minute depuis le temps de départ For i = 1 To 4 Sheets("T" & i).Select j = 1 Do While Range("A" & j).Value <> "" Range("G" & j).Value = 1 + Minute(Range("E" & j).Value - TempsDépart) + 60 * Hour(Range("E" & j).Value - TempsDépart) j = j + 1 Loop If j > 1 Then 'enregistrement du nombre de minutes entre début et fin de comptage 'et du nombre de lignes pour la feuille Range("F1").Value = Range("G" & j - 1) Range("F2").Value = j - 1 End If Next i 'Remplissage dans la feuille synthèse des colonnes de regroupement indiquant le nombre de comptage 'pour chaque minute écoulée et chaque touche For i = 1 To 4 Sheets("T" & i).Select Sheets("Synthèse").Range(Chr(i + 66) & 2).Value = Range("B1").Value k = 1 DerniereLigneComptée = 1 For j = 1 To Range("F1").Value 'nb de minutes Sheets("Synthèse").Range("A" & j + 2).Value = j 'minute courante Sheets("Synthèse").Range("B" & j + 2).Value = DateAdd("n", j - 1, TempsDépart) 'temps courant comptage = 0 DépartComptage = False For k = DerniereLigneComptée To Range("F2").Value 'nombre de lignes If Range("G" & k) = j Then DépartComptage = True comptage = comptage + 1 End If If DépartComptage And Range("G" & k) <> j Then DerniereLigneComptée = k 'mémorisation pour entrée de boucle suivante Exit For End If Next k Sheets("Synthèse").Range(Chr(i + 66) & j + 2).Value = comptage 'indication du nb de comtage pour la minute courante Next j Next i End Sub

merci beaucoup pour votre aide

Felipe · Answer

DaNot, la función que tu habías dado me ha sido muy útil, pero hay un solo problema: Cuando aValue=0, entonces falla... Así que para quienes vayan a usar aún esta función, aquí va un pequeño ajuste a la función de DaNot:

---

Function GetColumn(aValue As Long) As String
    If aValue  0 Then
        If aValue < 26 Then
            GetColumn = Chr(64 + aValue)
        Else
            GetColumn = Chr(64 + (Int(aValue \ 26))) & GetColumn(aValue Mod 26)
        End If
    Else: Exit Function
    End If
End Function

---

Felipe

isabelle · Answer

Hola,

¿cómo se puede eliminar en Excel una palabra que aparece 2 veces o más para que desaparezca por completo y solo queden las palabras únicas que no tienen duplicados en la columna?

gracias por vuestras respuestas

isabelle

Lidy · Answer

Hola,

Tengo un problema con VBA. ¿Me puedes ayudar?

tengo datos en Excel y tengo una columna F que contiene los códigos, así que quería hacer un bucle que Busque en la columna F y cuando encuentre el código "NOT", elimine la fila completa correspondiente a ese código

aquí está lo que he probado pero desafortunadamente no funciona

Range("F2").Select ActiveCell.Offset(-1, 0).Select Do While ActiveCell.Value <> "NOT" If ActiveCell.Value = "NOT" Then Selection.EntireRow.Delete End If Loop

gracias

Ed. · Answer

ActiveCell.EntireRow.Delete 'para una fila ActiveCell.EntireColumn.Delete 'para una columna

dlescot · Answer

Con retraso...  ' elimina la línea completa Dim plage As Range, s As Range Set plage = Range("A1").EntireRow For Each s In plage s.Delete Shift:=xlUp Next s

VBA (Excel) - Eliminar una fila

14 respuestas

Problema de grabación y lectura de archivos jpg

Fusionar particiones

Conexión de audio de pc, enchufes jack para cadena hi-fi

Conducir a 110 km/h en autopista: ahorro de combustible y ganancia de seguridad

Problema de texturas en enshrouded

Meta renuncia a usar tus publicaciones de instagram para crear contenido ia

Dispositivos a renovar

Aplicación samsung smart switch

Impresora canon pixma no detectada por livebox 7

Mp3 con radio antiguo