如何知道复制/粘贴的单元格是否包含第一列？

Question

我怎么知道粘贴或复制/粘贴的单元格包含哪些单元格。

当复制的范围包含第一列Column A中的任何单元格时，我想让用户复制并粘贴单元格如果没有，则返回msgbox错误（但我不知道如何通过“工作表更改”事件来执行此操作。

预期结果：

如果复制/粘贴不包含Column A（第一列）中的至少一个单元格，则返回错误，但是如果包含从columnA允许复制/粘贴（我该如何实现）？

Answer 1

您可以尝试此操作，假设用户必须在复制之前选择数据。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Long
a = Selection.Cells.Count
If Intersect(Target, Range("A:A")) Is Nothing Then
        MsgBox ("error you must copy data from 'A' column")
else 
MsgBox "you have selected " & (a) & "cells" 
End If
End Sub

将其放在您的vba项目的工作表对象上，用于存储要复制的数据
希望对您有帮助