求助：下拉框为什么不能循环变更linkedcell？

墨水南关

想在每一题前添加一个下拉框，选择答案，然后把答案记录在另一个工作表“答案”中，但是下拉框的linkedcell不能循环更改啊。

'在每一题前加一个下拉框，选择选项。选择后给工作表“答案”赋值。
Sub AddNewDropDown()
    Application.ScreenUpdating = False
    Dim i As Integer
    Cells(14, 1).Select
    For i = 1 To 187
        ActiveSheet.DropDowns.Add(Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=ActiveCell.Width, Height:=ActiveCell.Height).Select
        With Selection
            .ListFillRange = "$D$10:$D$12"
            .LinkedCell = Worksheets("答案").Cells(2, i + 2)      '赋值到工作表“答案”中，运行后该项为空，为什么？
            .DropDownLines = 3
            .Display3DShading = False
        End With
        ActiveCell.Offset(2, 0).Select
    Next
    Application.ScreenUpdating = True
End Sub

该贴已经同步到 墨水南关的微博

加油小神

我也很想知道这个问题的答案

墨水南关

加油小神 发表于 2014-8-21 19:16
我也很想知道这个问题的答案

要是知道答案一定要告诉我啊，折磨了好几个星期了