vba将组合框值设置为多个工作表中的多个单元格

Sub SetComboBoxValue()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim comboBox As ComboBox
    
    ' 设置要操作的组合框对象
    Set comboBox = Sheet1.ComboBox1
    
    ' 清空组合框中的选项
    comboBox.Clear
    
    ' 遍历多个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置要操作的单元格范围
        Set rng = ws.Range("A1:A10") ' 修改为你需要的单元格范围
        
        ' 遍历单元格范围中的每个单元格
        For Each cell In rng
            ' 将单元格的值添加到组合框中
            comboBox.AddItem cell.Value
        Next cell
    Next ws
End Sub