您只会得到最后一个填充行：

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

并且，根据您要关注的列，您可以放置适当的索引：1 - A、2 - B等，作为Cells中的第二个参数

我在checkbox方法上做了一些改进，所以我做了如下操作：

Sub Addcheckboxes()
Dim cell, LRow As Single
Dim chkbx As CheckBox
Dim MyLeft, MyTop, MyHeight, MyWidth As Double
 
Application.ScreenUpdating = False
LRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
 
For cell = 2 To LRow
    If Cells(cell, "A").Value <> "" Then
        MyLeft = Cells(cell, "O").Left
        MyTop = Cells(cell, "O").Top
        MyHeight = Cells(cell, "O").Height
        MyWidth = Cells(cell, "O").Width
        ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight).Select
        With Selection
            .Caption = ""
            .Value = xlOff
            .Display3DShading = False
        End With
    End If
Next cell
 
Application.ScreenUpdating = True
 
End Sub
 
 
Sub Template()
Application.DisplayAlerts = False
For Each chkbx In ActiveSheet.CheckBoxes
    If chkbx.Value = 1 Then
        For r = 1 To Rows.Count
            If Cells(r, 1).Top = chkbx.Top Then
Application.WindowState = xlMinimized
'On Error Resume Next
Dim objApp
Dim objIE
Dim objWindow
Dim ie As Object
Dim strURL
Set ie = CreateObject("InternetExplorer.Application")
Set objApp = CreateObject("Shell.Application")
Set objIE = Nothing
 
strURL = "http://intranet"
 
'Identify the IE window and connect.
 
For Each objWindow In objApp.Windows
  If (InStr(objWindow.Name, "Internet Explorer")) Then
    If (objWindow.LocationURL = strURL) Then
      Set objIE = objWindow
      Exit For
    End If
  End If
Next
 
If (objIE Is Nothing) Then
  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.navigate (strURL)
End If
 
With objIE
  .Visible = True
  Do While .Busy Or .readyState <> 4
  Loop
 
  Do While .document.readyState <> "complete"
  Loop
 
.document.getElementById("inputND").Value = Worksheets("Sheet1").Range("A" & r)
.document.getElementById("inputND").innerText = Worksheets("Sheet1").Range("A" & r) 
.document.getElementsByTagName("button")(1).Click
Application.Wait Now + TimeValue("00:00:02")
.document.getelementsByClassName("grc-label ml-2")(0).getelementsByClassName("flag-icon fas fa-mobile-alt fa-lg ng-star-inserted")(0).Click
Application.Wait Now + TimeValue("00:00:01")
.document.getelementsByClassName("btn btn-grc-outline-mobile btn-rounded mr-1 mb-3 ladda-button")(0).Click
Application.Wait Now + TimeValue("00:00:01")
.document.querySelector(".ng-star-inserted [value='5: Object']").Selected = True
.document.getElementById("categorisation_1").Value = Worksheets("Sheet1").Range("B" & r) & ": Object" '.Value = ": Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("categorisation_2").Value = Worksheets("Sheet1").Range("D" & r) & ": Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("categorisation_3").Value = Worksheets("Sheet1").Range("F2" & r) & ": Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("categorisation_4").Value = Worksheets("Sheet1").Range("H2" & r) & ": Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("categorisation_5").Value = Worksheets("Sheet1").Range("J2" & r) & ": Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("categorisation_6").Value = Worksheets("Sheet1").Range("L2" & r) & ": Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("champContactClient").selectedIndex = 1
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("champVoie").Value = "0: Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("champGravite").Value = "1: Object"
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("champCommentaire").Value = Worksheets("Sheet1").Range("N" & r)
Application.Wait Now + TimeValue("00:00:01")
MsgBox "Merci de vérifier avant de continuer", vbMsgBoxSetForeground + vbSystemModal
.document.getElementById("link61").Click
.navigate "http://intranet"
 
End With
 Exit For
            End If
        Next r
    End If
Next
Application.DisplayAlerts = True
 
End Sub

检查的第一行工作得很好，但第二行不行，在执行宏后，我用黄色突出显示了以下代码行：

If chkbx.Value = 1 Then