<em>excel</em> <em>VBA</em> 组合框 <

要获得最右边一列的序号，一般使用End，例如下面的语copy句查找第二行最后一列：
Cells(2, Columns.Count).End(xlToLeft).Column
相当于，在第二行表格zd最大列按END+左到达的位置。

excel中的下拉框有三种，一个是excel窗体工具栏中的，一个是excel控件工具栏中的，还有一个是VBA界面中的。
这几个使用都不方便，所以我不使用它们，不如直接引用单元格方便，或者使用“数据－有效性”中的序列。

下面这个是excel VBA中的帮助文件，也许对你有用。
ListBox 控件、AddItem 和 RemoveItem 方法以及 ListIndex、ListCount 属性示例

下例用 AddItem、RemoveItem 以及 ListIndex 和 ListCount 属性来添加和删除列表框的内容。

若要使用该示例，请将示例代码e799bee5baa6e4b893e5b19e339复制到某窗体的声明变量部分。请确保该窗体包含：

名为 ListBox1 的列表框。

名为 CommandButton1 和 CommandButton2 的两个命令按钮控件。

Dim EntryCount As Single

Private Sub CommandButton1_Click()
    EntryCount = EntryCount + 1
    ListBox1.AddItem (EntryCount & " - Selection")
End Sub

Private Sub CommandButton2_Click()
    '确认列表框包含列表项
    If ListBox1.ListCount >= 1 Then
        '如果没有选中的内容，用上一次的列表项。
        If ListBox1.ListIndex = -1 Then
            ListBox1.ListIndex = _
                    ListBox1.ListCount - 1
        End If
        ListBox1.RemoveItem (ListBox1.ListIndex)
    End If
End Sub

Private Sub UserForm_Initialize()
    EntryCount = 0
    CommandButton1.Caption = "Add Item"
    CommandButton2.Caption = "Remove Item"
End Sub
If Cells(r, 1) <> "" And Cells(r, 2) <> "" Then
Application.EnableEvents = False
Cells(r, 3) = Cells(r, 1) * Cells(r, 2)
Application.EnableEvents = True
Else
Application.EnableEvents = False
Cells(r, 3) = ""
Application.EnableEvents = True
End If
加个复制else就可以知了道
j

Sub a()

Dim s As String
s = Range("sheet1!A1").Text
MsgBox s

End Sub