vba - 在下一个空单元格区域中输入用户窗体数据

Question

我有一个接受文本输入的用户窗体和一个选项按钮选择，用于将数据输入到工作表中，具有一定的分类。

条目使用来自计数器 i 的值放置在工作表中的特定单元格中，并且可以通过使用按钮将其删除到位于同一工作簿上的“存档”工作表中。这会在列表中留下一个免费的条目。 IE。

Job 1 is entered 
Job 2 is entered
Job 3 is entered 
Job 2 is archived

There now exists a space between job 1 and 3.

我想要做的是创建一个循环，它将检查一个空的单元格范围，并将用户窗体数据放在下一个可用的空单元格中。每 5 个单元格输入一次数据，因此 A5、A10、A15... 等。

我目前拥有的代码如下:

If UserForm1.OptionButton1.Value = True Then
  If Range("A" & (5 * i)).Value = "" Then
    ActiveSheet.Range("A" & (5 * i) & ":" & "O" & (3 + (5 * i))).Select
    With Selection.Interior
      .Color = RGB(239, 231, 121)
    End With

    With Worksheets("Active Jobs")
        .Range("A" & (5 * i)) = UserForm1.TextBox1     'Place job 5 cells apart
        .Range("B" & (5 * i) & ":" & "E" & (3 + (5 * i))).Merge
        .Range("B" & (5 * i)) = UserForm1.TextBox2
        .Range("B" & (5 * i) & ":" & "E" & (3 + (5 * i))).VerticalAlignment = xlTop
        .Range("G" & (5 * i) & ":" & "O" & (3 + (5 * i))).Merge

    Set t = .Range("T" & (5 * i))
    Set btn = .Buttons.Add(t.Left, t.Top, t.Width, t.Height)

      With btn
        .Name = "RemovetoArchive" & i1
        .Caption = "Archive"
        .OnAction = "RemovetoArchive"
      End With

    End With

  i = i + 1

  ElseIf Range("A" & (5 * i)).Value <> "" Then
    For i = 1 To 25
    'I can't figure out how to implement the for loop here.
    Next i
  End If

Answer 1

所以我猜我脑子里放了个屁，几天后又回来了，几乎立刻就解决了。

为范围创建一个带有新变量 C 的 While 循环

While Range("A" & (5 * c)).Value <> ""
    c = c + 1
Wend 

这每 5 个单元格定位最近的空单元格。