[已解决]求助，如何获取粘贴列位置的起始至最后单元格的行号？？

daxindianqi

求助各位大神：

      如图：假设将F列（或者其它工作簿的任意列）单元格区域复制，粘贴或插入到C列的任意位置，则 MsgBox 显示出C列粘贴位置或插入的起始和终止行号（有可能C列被粘贴区域含有其它任意数据）



例如：用ctrl+c 将F3：F10（或其它工作簿任意区域）复制到剪贴板,ctrl+v 粘贴并覆盖到C20:C27（或者在C列某行插入剪贴板上的复制区域），则由代码判断并  MsgBox  提示： “C20：C27” 。

最佳答案

月排行榜 / 总排行榜

mathking77

2016-8-1 10:13

附件
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
    MsgBox Target.Address(False, False)
End If
End Sub

跳转到最佳答案楼层

mathking77

附件
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
    MsgBox Target.Address(False, False)
End If
End Sub

daxindianqi

mathking77 发表于 2016-8-1 10:13
附件
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column ...

这两天在外面忙，才回帖 谢谢 “mathking77” 的代码，非常好用。