文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 数据验证 如下图 1 所示，当选择工作表 Sheet2 列 A 中的单元格下拉列表项后，其相邻列 B 中的单元格下拉列表项会与列 A 中选择项相关联，也就是说，列 A 中选择不同的项，列 B 中也会呈现相应的项。 图 1 下图 2 是下拉列表项的数据源，位于工作表 Sheet1 的单元格区域 A2:G33 中。 图 2 下面是实现这样效果的 VBA 代码。 打开 VBE ，插入一个标准模块，在其中输入代码： Sub test() Dim var As Variant, x As Long, col As New Collection, c As Variant Dim CountryVar As Variant, y As Long, CountryStr As String var = Sheet1.Range( "A2:G" & Sheet1.Range( "A" & Rows.Count).End(xlUp).Row) For x = 1 To UBound( var ) On Error Resume Next col.Add var (x, 1 ), CStr( var (x, 1 )) On Error GoTo 0 Next x ReDim CountryVar(col.
………………………………
