在Excel VBA中，可以使用以下方法来避免在不同的下拉菜单中粘贴数值：

1. 使用Application.CutCopyMode属性来检查是否有剪切或复制操作正在进行。如果有，可以使用Exit Sub语句来退出代码，并阻止粘贴操作。示例代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode <> False Then
        Exit Sub
    End If
    ' 继续执行其他代码
End Sub

2. 使用Worksheet.Change事件来检查目标单元格是否是下拉菜单的范围。如果是，可以使用Exit Sub语句来退出代码，并阻止粘贴操作。示例代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dropdownRange As Range
    
    Set dropdownRange = Range("A1:A10") ' 下拉菜单的范围
    
    If Intersect(Target, dropdownRange) Is Nothing Then
        Exit Sub
    End If
    ' 继续执行其他代码
End Sub

在这两个示例中，可以根据具体的需求来修改检查剪切/复制操作进行状态的条件以及下拉菜单的范围。这样，在进行剪切/复制操作或在下拉菜单范围内进行粘贴操作时，代码将会退出并阻止粘贴数值。