Question

如何用VBA编写符合条件的动态数据有效性序列？

本人有二张工作表，现需要在表一中将符合表二“工程名称”、“班组名称”的“工种”名（H列）做为有效性序列自动态写入表一的“工种”列下的单元格内，以供录入方便，表的内容如下：
表一 表二
F列 G列 H列 F列 G列 H列
7 工程名称 班组名称 工种 工程名称 班组名称 工种
8芳和花园 盘根问 芳和花园 土方工 盘根问
9芳和花园 黄强 芳和花园 预应力施工 黄强
10 芳和花园 瓦工 黄强

本人试写入以下宏：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
c1 = Val(Worksheets("表一").Cells(2, 6).Value) + 6
For d1 = 7 To c1
Set Col1 = Nothing
a1 = Val(Worksheets("表二").Cells(4, 8).Value) + 6
For b1 = 7 To a1
If Sheets("表二").Cells(b1, 8).Value = Sheets("表一").Cells(d1, 6).Value _
And Sheets("表二").Cells(b1, 11).Value = Sheets("表一").Cells(d1, 7).Value Then
Set rng1 = Sheets("表二").Cells(b1, 10)
Col1.Add rng1, key:=CStr(rng1)
End If
Next b1
For p1 = 1 To Col1.Count
'将变量Col的值组成序列字符串,并使用逗号分隔字符串
Sinet1 = Sinet1 & Col1(p1) & ","
Next
With Sheets("表一").Cells(d1, 8).Validation
.Delete '删除单元格的数据有效性设置(如果存在)
'为单元格添加数据有效性,并指定类型为序列
.Add Type:=xlValidateList, Formula1:=Sinet1
End With
Next d1
End Sub
运行宏后，发觉在表一的“工种”所在列中除H7单元格能正常显出“土方工”外，下面二个单元格显示的有效性内容分别为“土方工,预应力施工,瓦工”和“土方工,预应力施工,瓦工,预应力施工,瓦工”，出现叠加现象，如何改进行，请各位大哥帮帮手！

Answer 1

用字典来处理呀，字典就不会重复了。

Answer 2

你的next d1 放错地方了，你重复累加了Sinet1 = Sinet1 & Col1(p1) & ","， 把next d1 放到next b1 下，然后在with sheets.cells(d1,8) 那里开多一次，for d1...next d1结构。 而且你的set rng1 = col 那里没有异常处理，很容易出现异常的。由于你给资料不全，无法帮你作出完整代码。 如10列，第11列，我不知道是什么内容。

Answer 3

QQ：564534908