Excel VBA，循环查找空单元格并向其添加组合框值

Question

到目前为止，我所拥有的是：

Dim Check As Long

Check = Cells(Rows.Count, "B").End(xlUp).Row

For i = Check To 1 Step -1
If Range("B" & i).Value = "" Then
  Range("B" & i).Value = ComboBox2.Value
End If
Next i

基本上我正在尝试将多个组合框和文本框添加到下一个空行，我认为也可以使用偏移。

Answer 1

为了通过评论避免“驾车回答”，请尝试这样做。

cells(rows.count, "B").end(xlup).offset(1, 0) = ComboBox2.Value

这应该替换私有工作表代码子中的所有代码。如果不是私有工作表代码表，那么

with worksheets("Sheet1")
   .cells(.rows.count, "B").end(xlup).offset(1, 0) = ComboBox2.Value
end with

...在公共模块代码表中。