excel中合并单元格下拉列表的自动扩展

Question

我有一些具有数据验证下拉列表的合并单元格，我尝试了以下方法，使它们在焦点应用于单个单元格时自动展开，但当我尝试应用于合并单元格时，写入它们的范围不起作用。

On focus after tabbing of Excel drop down, automatically show list for selection

第一个代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Err1:

If Target = Range("d10") Then
    Application.SendKeys ("%{UP}")
End If Err1:
'do nothing     End Sub

它工作得很完美

当我合并单元格时，它不工作，甚至我试图将范围更改为所有合并的单元格，它也不工作。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Err1:

If Target = Range("d10:n10") Then
    Application.SendKeys ("%{UP}")
End If   Err1: 'do nothing    End Sub

你知道它是怎么工作的吗？

提前谢谢。

Answer 1

合并单元格会导致各种问题，应该避免。你可以使用

If Target.Address = "$A$1:$C$3" Then

或者更好

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    MsgBox "merged cells are bad for your health"
End If

End Sub

​

​