Vous pouvez essayer une fonction comme celle-ci. Vous devrez passer une plage dans la fonction comme indiqué ci-dessous dans Sub Test () .

La fonction personnalisée peut trouver la première cellule utilisée ci-dessous à partir de n'importe quel point de départ.

Sub Test()

MsgBox FR(Range("A1"))

End Sub

Option Explicit

Function FR(Start As Range) As Long

Select Case Start
    Case <> ""
        FR = Start.Row
    Case Else
        FR = Start.End(xlDown).Row
End Select

End Function

• N'essayez pas d'utiliser Select dans une fonction.
• Utilisez Set pour attribuer un objet de plage. N'utilisez pas Set pour attribuer un numéro à une variable.
• Décidez si vous voulez un numéro de ligne ou un objet de plage. Vous rebondissez entre les deux sans tenir compte du résultat.

Code corrigé:

Sub rename()

    Dim strOldType As String
    Dim correctrow As Long
    Dim a As LONG     '<~~ correction

    correctrow = 1     '<~~ correction
    a = startrow(correctrow)     '<~~ correction

    strOldType = Range("s" & a).Value

End Sub

Function startrow(firstroww)

    if Range("ab" & firstrow) <> "" then     '<~~ correction
        startrow = firstrow
    else
        startrow = Range("ab" & firstrow).end(xldown).row
    end if

End Function

Première cellule de la fonction de colonne

On suppose que vous recherchez une fonction VBA à utiliser dans Excel pour calculer la première ligne non vide d'une colonne (spécifiée par une plage).

Fonctionnalités

• La méthode Volatile marque une fonction définie par l'utilisateur comme volatile. UNE la fonction volatile doit être recalculée chaque fois que le calcul se produit dans toutes les cellules de la feuille de calcul. Une fonction non volatile est recalculée uniquement lorsque les variables d'entrée changent (Aide VBA).
• Au moins par souci d'exactitude, vous devez utiliser IsEmpty au lieu de "" pour la raison, par exemple si la cellule de la ligne résultante contient une formule qui donne la valeur "", elle sera ignorée.
• La version de la méthode Find utilise la méthode Find pour calculer la première ligne, qui est plus sûre que la version finale, par ex. si vous entrez une valeur dans la première cellule du colonne c'est-à-dire que le résultat est 1 et que vous masquez la première ligne, le résultat de la version finale ne sera pas 1.
• La formule peut être insérée dans la même colonne que SelectRange Colonne. Dans certains cas, la version Fin n'afficherait pas le bon résultat ou créez une référence circulaire. Par conséquent, ThisCell est utilisé dans la version End et 0 est renvoyé si aucune valeur n'a été trouvée dans la colonne SelectRange .

Version de la méthode de recherche

=FirstRowEnd(AB1)
=FirstRowEnd(AB20)
=FirstRowEnd(AB17:AH234)

Méthode de recherche

Au lieu de

Function FirstRowEnd(SelectRange As Range) As Long

    Application.Volatile

    Dim FirstCell As Range

    If Application.ThisCell.Column = SelectRange.Column Then Exit Function

    If Not IsEmpty(SelectRange.Cells(1)) Then
        FirstRowEnd = 1
      Else
        Set FirstCell = Cells(1, SelectRange.Column).End(xlDown)
        FirstRowEnd = FirstCell.Row
        If FirstRowEnd = Rows.Count And IsEmpty(FirstCell) Then
            FirstRowEnd = 0
        End If
    End If

End Function

vous pouvez utiliser

=FirstRowFind(AB1)
=FirstRowFind(AB20)
=FirstRowFind(AB17:AH234)

ou

Set FirstCell = .Find(What:="*", After:=.Cells(.Cells.Count), _
        LookIn:=xlFormulas, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext)

Les paramètres pour les arguments LookAt (sans importance dans ce cas) et SearchDirection (la valeur par défaut est Next ) peuvent être omis, mais comme je n'ai pas trouvé de différence d'efficacité, je n'ai pas 't.

Utilisation dans Excel

Pour la colonne AB:

Set FirstCell = .Find("*", .Cells(.Cells.Count), _
        xlFormulas, xlWhole, xlByColumns, xlNext)

Version finale (non recommandée)

Set FirstCell = .Find("*", .Cells(.Cells.Count), -4123, 1, 2, 1)

Utilisation dans Excel

Pour la colonne AB code >:

Function FirstRowFind(SelectRange As Range) As Long

    Application.Volatile

    Dim FirstCell As Range

    With Columns(SelectRange.Column)
        Set FirstCell = .Find("*", .Cells(.Cells.Count), -4123, 1, 2, 1)
    End With

    If Not FirstCell Is Nothing Then
        FirstRowFind = FirstCell.Row
    End If

End Function

Vous pouvez utiliser ceci:

ActiveSheet.UsedRange.Row
ActiveSheet.UsedRange.Column

L'objet UsedRange est le plus grand rectangle couvrant toutes les cellules non vides.