使用 Excel VBA 检测非空的最后一个单元格位置

Question

In my Excel sheet, I have VBA code to detect the last non-empty cell in Column A and add incremental serial number value in that cell (in below example cell A6 value should be SN104).

This processing is limited only to Column A, and in this image example first non-empty last cell is at A6, sometimes it can be after 100 cells or 1000 cells.

Is there any simple way to handle this scenario?

Answer 1

Public Function GetLastCell(ByVal startRng as Range) as Range

    With startRng
        Set GetLastCell = IIf(.Offset(1).Value = "", .Offset(0), .End(xlDown))
    End With

End Function

For your example, you can define a Range variable rng, and call the above function in this way:

Dim rng as Range
Set rng = GetLastCell( Range("A1") )

Then rng is referring to the last cell of Column A

Answer 2

Something like

Dim lngLastUsedRow as Integer
lngLastUsedRow = Range("A65536").End(xlUp).Row

Dim lngFirstEmptyRow as Integer
lngFirstEmptyRow = Range("A65536").End(xlUp).Offset(1,0)

// do your increment
newValue = Cint(Mid(CurrentWorkSheet.Range("A" + lngLastUsedRow).Value,2)) + 1

CurrentWorkSheet.Range("A" & lngFirstEmptyRow).Value = "SN" + newValue

I don't have excel on me, I can't test it right now. But this should get you started.

Answer 3

Something like this which

1. Find the true last used cell in any Excel version, and handles a blank result

2. Parses the string in the last non-blank cell (handling any length of alpha then numeric)to update the next blank cell

   Sub GetTrueLastCell() Dim rng1 As Range Dim objRegex As Object Dim strFirst As String Set rng1 = Columns("A").Find("*", [a1], xlFormulas) If Not rng1 Is Nothing Then Set objRegex = CreateObject("vbscript.regexp") With objRegex .Pattern = "^(.+?[^\\d])(\\d+)$" If .test(rng1.Value) Then strFirst = .Replace(rng1.Value, "$1") rng1.Value = strFirst & (Val(Right$(rng1.Value, Len(rng1.Value) - Len(strFirst)) + 1)) End If End With Else MsgBox "Data range is blank" End If End Sub

Answer 4

Assumptions:

• Next cell in list is empty
• Serial N's only have three digits after ' SN ' string (ie, if it reaches 1000, earlier ones don't need padding, like ' 0100 '

-

Dim rAll As Range, rLast As Range, rNext As Range, iNextSN As Integer

Set rAll = Intersect(Sheet1.Cells(1).CurrentRegion, Sheet1.Columns(1)) ' Column 'A' can be contiguous with others
Set rLast = rAll.Cells(rAll.Cells.Count) ' Last cell in current list
Set rNext = rLast.Offset(1) ' Next cell below current list

iNextSN = CInt(Right(rLast.Value, 3)) ' Get value of last serial N
rNext.Value = "SN" & iNextSN + 1 ' Assemble next SN with increment

-