E1 如何写代码得到A列间隔数据的下拉选择清单呢?

wooikeat9128

请帮忙谢谢!

結果是在E1 裡

hfwufanhf2006

什么叫间隔行数？隔2行、隔3行、还是4行？
下面代码是隔2行，如果不是，自己改， step 2 是隔2行的意思；
代码放在 SelectionChange中
If Target.Address = "$E$1" Then
   For i = 1 To [a1].End(4).Row Step 2
       s = s & Cells(i, 1) & ","
   Next i
   With Range("e1").Validation
     .Delete
     .Add 3, 1, 1, Formula1:=s
   End With
End If
End Sub

wooikeat9128

老师您太厉害了,就是这样,好人一路平安