在 Worksheet_Change 中选择一个带有粘贴范围的单元格

Question

我有一个常规的 VBA Worksheet_Change(ByVal Target As Range) 例程，除了用户粘贴一系列单元格而不是更改单个单元格值时，它工作正常。

有没有办法在例程开始时区分这两种情况，以便：

1. 单个单元格更改正常运行
2. 将设置粘贴的范围 target 到范围内已更改的最后一个单元格（即 粘贴 A1:Z5 将选择 Z1) - 在运行例程之前 正常

Answer 1

非常简单的选择：

A1:Z5 会选择 Z5:

If Target.Count > 1 Then
    Set Target = Target.Cells(Target.Rows.Count, Target.Columns.Count)
End If

A1:Z5 会选择 Z1:

If Target.Count > 1 Then
    Set Target = Target.Cells(1, Target.Columns.Count)
End If