求助：Excel VBA实现ComboBox的RowSource随新增产品自动扩展

直接给你能跑的代码方案，分两部分实现：命令按钮添加产品并更新RowSource，以及窗体初始化时自动加载最新数据。

1. 命令按钮核心代码 #

假设你的用户窗体上有：ComboBox1（绑定产品列表）、CommandButton1（添加按钮）、TextBox1（输入新产品名）、TextBox2（输入对应定价，可根据实际列调整）。在窗体的代码模块里粘贴以下代码：

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 绑定到指定工作表，避免依赖活动表出错
    Set ws = ThisWorkbook.Worksheets("Calcul")
    
    ' 检查产品名输入是否为空
    If Trim(TextBox1.Value) = "" Then
        MsgBox "请输入产品名称！", vbExclamation
        TextBox1.SetFocus
        Exit Sub
    End If
    
    ' 找到T列最后一行非空数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "T").End(xlUp).Row
    
    ' 写入新产品到T列下一行
    ws.Cells(lastRow + 1, "T").Value = Trim(TextBox1.Value)
    ' 写入定价到U列（不需要定价可删除这段）
    If Trim(TextBox2.Value) <> "" Then
        ws.Cells(lastRow + 1, "U").Value = Trim(TextBox2.Value)
    End If
    
    ' 更新ComboBox的RowSource范围到新的最后一行
    ComboBox1.RowSource = "Calcul!$T$7:$T$" & (lastRow + 1)
    
    ' 清空输入框，方便下次输入
    TextBox1.Value = ""
    TextBox2.Value = ""
End Sub

2. 窗体初始化自动加载最新数据 #

如果希望打开窗体时，ComboBox自动加载T列所有已有的产品（包括之前添加的），在窗体代码模块里再加这段：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Worksheets("Calcul")
    lastRow = ws.Cells(ws.Rows.Count, "T").End(xlUp).Row
    
    ' 确保至少覆盖初始的T64范围（如果数据少于64行）
    lastRow = IIf(lastRow < 64, 64, lastRow)
    ComboBox1.RowSource = "Calcul!$T$7:$T$" & lastRow
End Sub

为什么之前的方法没效果？ #

大概率是这两个原因：

• 没正确获取T列最后一行的行号（比如用COUNT时没排除空行，或者Do循环逻辑出错）
• RowSource的字符串格式不对（比如漏掉工作表名标识，或者行号拼接错误）

内容的提问来源于stack exchange，提问作者Anouar ALMOUSLIH