VBA Trouver des Cellules Vides et insérer du texte

J'ai des données dans la colonne A sur mon classeur, ils sont regroupés avec des espaces entre eux. J'ai besoin de VBA pour trouver la première cellule vide et ajouter du texte "Progrès", puis de trouver la prochaine cellule vide et ajouter du texte "Plan"

Les codes ci-dessous sont seulement en ajoutant le même texte à chaque vide, comment puis-je le dire une fois premier vide si rempli, passer à la prochaine vide et ajouter XXX texte?

 Sub getnext()

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
    If IsEmpty(Cells(i, 1)) Then
      Cells(i, 1).Value = "Progress"
      Cells(i, 1).Value = "Plan"
    End If
Next i

End Sub



 Sub FirstEmpty()
lRow = Range("A" & Rows.Count).End(xlUp).Row
Set MR = Range("A1:A" & lRow)
For Each cell In MR
If cell.Text = "" Then cell.Value = "Progress"

    Next

End Sub

InformationsquelleAutor Daniel Strong | 2015-04-09

Essayez d'inclure une incrémentation de la variable de garder une trace de la façon dont de nombreuses substitutions que vous avez fait. Voir ci-dessous pour un exemple:

Sub FindBlankAndFill()
    Dim cnter As Integer

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    cnter = 0

    For i = 1 To lastRow
        If IsEmpty(Cells(i, 1)) Then
            Select Case cnter
                Case 0: Cells(i, 1).Value = "Progress"
                Case 1: Cells(i, 1).Value = "Plan"
                Case Else: Cells(i, 1).Value = "Not Yet Defined"
            End Select
            cnter = cnter + 1
        End If
    Next i

End Sub

Je savais qu'il y avait quelque chose qui me manquait! Merci pour l'aide @user3561813

InformationsquelleAutor user3561813

3

Avec des données comme:

Cette petite macro place quelque chose dans la première cellule vide et quelque chose de différent dans la prochaine cellule vide:
```
Sub marine()
    Dim r As Range
    Set r = Intersect(ActiveSheet.UsedRange, Range("A:A")).Cells.SpecialCells(xlCellTypeBlanks)
    r(1) = "Initial"
    r(2) = "next"
End Sub
```
- Travaillé Parfaite! Merci beaucoup! @Gary Étudiant
InformationsquelleAutor Gary's Student

Vous devez vous connecter pour publier un commentaire.