自动填充中断一条记录 [Excel-VBA]

Question

我的记录从 B8 单元格开始，我需要在 A 列中对它们进行计数，从单元格 A8 开始。

我使用了这个问题“autofill down according to adjacent column”的答案，但是当记录计数为 0 或 1 时我该如何处理？当有 1 条记录时，它会出错。似乎自动填充无法自动填充一个单元格。

我有一些条件测试零和一，但有没有更简洁的方法呢？

LastRow = Cells(Rows.Count, 2).End(xlUp).Row    'Find last row        

If LastRow >= 8 Then                            'If recordcount is 1 or greater
    Range("A8").FormulaR1C1 = "1"               'First number is "1"
        If Not LastRow = 8 Then                 'If not recordcount exactly 1 
           'Enumerate the remaining records with Autofill
            Range("A8").AutoFill Destination:=Range("A8:A" & LastRow), Type:=xlLinearTrend      
        End If
 End If

Answer 1

这有两种经过测试的方法来完成您正在尝试做的事情。第一种方法是您已经在使用的方法，删除阻止它工作的元素。第二种是另一种检查方法，因为它可能会为您提供未来项目的想法，该项目具有类似的要求，但不需要使用自动填充。

测试

Sub AutoFiller()

Dim LastRow As Long
    LastRow = Cells(Rows.Count, "B").End(xlUp).row    'Find last row

    Sheets("Sheet1").Cells(8, 1) = 1                'First number is "1"
    Range("A8").AutoFill Destination:=Range("A8:A" & LastRow), Type:=xlLinearTrend             
End Sub

使用 LOOP 代替自动填充：

Sub VBAAutoFill()

Dim LastRow As Long
Dim count As Long

    LastRow = Cells(Rows.Count, 2).End(xlUp).Row 
    count = 1

    For lRow = 8 to LastRow
        Sheets("Sheet1").Cells(lRow, 1) = count
        count = count + 1
    Next lRow
end Sub

EXCEL FUNCTION：计算所有条目，如果您只想知道总共有多少..

COUNTA(B8:B10000)

编辑笔记：详细说明笔记中的过程，纠正错别字。原始编辑添加了解决方案。

Answer 2

My records start in cell B8, and I need to count them in Column A, starting in cell A8.

我的意思是，您实际上是在枚举行。这应该有助于解决您的错误问题，如果它不是您想要的 A 列中的内容，您应该不难做出调整：

 Public Sub GetRangeCount()

    Dim bRange As Range
    Set bRange = Range(Range("B8"), Range("B1048575").End(xlUp))

    Dim i As Integer
    i = 0

    For Each c In bRange

        If c.Value <> "" Then
            i = i + 1
            c.Offset(0, -1).Value = i
        End If

    Next

End Sub