同一列中的下拉列表中的多个select不起作用

我目前正在制作一个电子表格，在同一列（G）中有两个下拉列表。 我的意图是有多个select，并从下拉列表中select放在列表（H）旁边的列中。 如果进行了其他select，则将被置于第一select之下。

然而，顶级下拉列表（G3）只能让我做一个select，下面的（G14）让我做更多。

顶部的下拉列表让我在底部做了一个更多的select，然后把它添加到底部旁边的列。

我希望这个解释得不错。

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo exitHandler Dim rngDV As Range Dim lRow As Long Dim lCol As Long lCol = Target.Column 'column with data validation cell If Target.Count > 1 Then GoTo exitHandler On Error Resume Next Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Intersect(Target, rngDV) Is Nothing Then 'do nothing Else If Target.Value = "" Then GoTo exitHandler Application.EnableEvents = False Select Case Target.Column Case 7 If Target.Offset(0, 1).Value = "" Then lRow = Target.Row Else lRow = Cells(Rows.Count, lCol + 1).End(xlUp).Row + 1 End If Cells(lRow, lCol + 1).Value = Target.Value Target.ClearContents End Select End If exitHandler: Application.EnableEvents = True End Sub