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

...在公共模塊代碼表中。