将用户窗体数据input到下一个空单元格区域

我有一个用户窗体需要文本input和一个选项buttonselect，input数据到一个工作表，具有一定的分类。

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

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. 

我想要做的是创build一个循环，将检查一个空的单元格范围，并将UserForm数据放在下一个可用的空单元格。 数据input每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

所以猜测我有一个大脑放屁，离开了这几天，回来，几乎马上解决了。

用范围的新variablesC创build一个While循环

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

这是每5个细胞位置最近的空细胞。