trovare celle nella colonna che iniziano con "SS" e spostando la riga a sinistra

trovare celle nella colonna che iniziano con “SS” e spostando la riga a sinistra

ho copiato un pdf che deve essere risolto. ho spec (SSde _ de _) nella colonna A e diversi scritti in B-H. il problema è che alcune delle specifiche sono finite nella colonna B quindi voglio cercare tutte le cellule che sono con SS, e poi spostare l’intera riga sopra. ho provato a utilizzare AutoFilter e selezionando le celle visibili, insieme a .find a nessun profitto.

grazie per l’aiuto!

Sub Test()
Dim Sheet As Worksheet
Application.ScreenUpdating = False
Set Sheet = Sheets("Original Index Goes Here")

Dim rng As Range, sel As Range, selrange As String, r As Long


Set rng = Range("B1:B10000")


rng.AutoFilter Field:=1, Criteria1:="=SS*", _
             Operator:=xlAnd, visibledropdown:=True
ActiveSheet.AutoFilter.Range.Offset(1,0) _
            .Rows.SpecialCells(xlCellTypeVisible).Select

End Sub

questo seleziona la cella nella colonna B per ciascuno dei quattro indicati di seguito, ma non so come afferrare il resto della riga e spostarla a destra. ()) ()

superi l’esempio Esempio

EN From: Finding Cells in Column that begin with “SS” and shifting row to left

More similar articles:

15 Comments

  1. quindi, utilizzando Vba, come faccio a selezionare le righe che capita di ottenere ordinati, e poi spostarli. non può spostare più di uno alla volta. può specificare il numero di riga perché può essere ovunque dalla riga 3 alla riga 10000.

  2. se questo non è solo qualcosa che dovete fare una volta, si dovrebbe prima scrivere un ciclo per eseguire attraverso i dati e cercare “SS” in ColB. hai provato a scrivere qualcosa di simile? in genere qui le persone amano vedere qualche tipo di tentativo quando qualcuno sta chiedendo codice: il codice esistente (anche se non funziona) insieme ad una descrizione di quali errori hai, è sempre utile.

  3. prova questo, cercherà colonna B per qualsiasi cosa con come “SS” e se trovato eliminare la cella a sinistra che è A e spostare l’intera riga a sinistra.

    Sub findSS()
    Dim getLastRow As Long
    getLastRow = Range("B" & Rows.Count).End(xlUp).Row
    
    For i = 1 To getLastRow
        If Range("B" & i) Like "*SS*" Then
            Range("A" & i).Select
            Selection.Delete Shift:=xlToLeft
        End If
    Next
    End Sub

    Update, troverà “SS” nella colonna D o se si desidera trovare in qualsiasi colonna basta cambiare la “D” a quale colonna mai si desidera e otterrà il SS e inserire una riga e metterlo lì.

    Sub findSS()
    Dim getLastRow As Long
    Dim columnLetter As String
    getLastRow = Range("B" & Rows.Count).End(xlUp).Row
    columnLetter = "D"
    
    For i = 1 To getLastRow
        If Range(columnLetter & i) Like "*SS*" Then
            Range(columnLetter & i).Insert shift:=xlDown
        End If
    Next
    
    End Sub
    1. essendo un principiante, ho un paio di domande. in primo luogo fuori, perché avete & amp; I nella gamma?

    2. il “& amp; i” è quello di loop ogni riga, io è il segnaposto per ogni riga. per esempio, B & amp; i = B1, B2, B3…..

    3. OK quindi diciamo di avere un SS nella colonna D, e ci sono dati a sinistra di esso. potrei aggiungere riga sotto, poi eliminare e spostare verso il basso e sinistra?

    4. stai andando lontano dalla tua domanda post originale. se questo risponde alla tua domanda originale, segnalo come risposta e fai una nuova domanda per favore.

    5. grazie per il vostro aiuto. è stato segnato. non posso fare più domande per un paio di giorni a causa di scarsa formattazione quando originariamente porre la domanda.

    6. se per quello che stai chiedendo, se ci sono dati a sinistra della colonna D diciamo colonna a, b, c hanno dati e si desidera spostare tutte le celle a partire da colonna d a sinistra alla colonna b e sovrascrivere i dati esistenti in quelle colonne?

    7. se ci sono dati in A, B e C e SS in D. Potreste inserire una riga sotto di essa e spostare D in avanti in quella riga. salvataggio dei dati in A, B e C

  4. prova sotto per eliminare colonna una cella e spostare a sinistra:

    dim i as long, lr as long
    lr = cells(rows.count,1).end(xlup).row
    for i = 2 to lr 'assumes row 1 is headers
        if left(cells(i,2),2)="SS" then cells(i,1).delete Shift:=xltoleft
    next i

    prova qui sotto per aggiungere una cella vuota e spostare a destra:

    dim i as long, lr as long
    lr = cells(rows.count,1).end(xlup).row
    for i = 2 to lr 'assumes row 1 is headers
        if left(cells(i,2),2)="SS" then cells(i,1).insert Shift:=xltoright
    next i
  5. ho aggiunto entrambi i codici che ho provato ed excel. ci dispiace questa è la mia prima volta utilizzando questo sito.

Leave a Reply

Your email address will not be published. Required fields are marked *