excel 如何在VBA中获取复制的范围地址？

tobeahumanbeing

我使用的是office2003的版本

假设我复制了一个区域。在Excel中，复制的区域将以虚线边框突出显示。然后我选择另一个单元格。
现在我将运行一个宏。在一个消息框中，我想看到复制区域的地址。

• 
  
  • 示例：**
    
  
  

1.复制Range("$A$1:$A$5")并选择B1单元格。当我运行宏时，消息框显示$A$1:$A$5。
1.复制Range("$C$5:$E$10")并选择B1单元格。当我运行宏时，消息框显示$C$5:$E$10。

taller

使用Windows API可以从剪贴板找回被拷贝的单元格引用地址

https://club.excelhome.net/threa ... tml?_dsign=d350e497

tobeahumanbeing

taller 发表于 2024-9-7 11:21
估计这是个不可能完成的任务，从剪贴板内容无法再找回被拷贝的单元格引用地址

那可以知道总共多少行多少列么？某行某列的内容么？

lchhuo

Sub text2()
    Dim rng As Range
    Set rng = Selection '先将选择区域赋值给变量rng
    rng.Copy
    [b2].Select
    msgbox rng.Address
End Sub
这样是不是你要求的

z865593849

lchhuo

msgbox敲错了个字母

tobeahumanbeing

lchhuo 发表于 2024-9-7 11:47
Sub text2()
    Dim rng As Range
    Set rng = Selection '先将选择区域赋值给变量rng

现在要实现的是，没有记录拷贝单元格区域，通过粘贴板，知道复制了多少行多少列的数据，知道某一行某一列的数据的内容

lchhuo

这个地方有解决的办法，你看看是不是你需求的，点击右键或者ctrl+c复制选择的区域时，在状态栏显示单元格地址
如何获得剪切或复制位置的单元格对象，或地址？
https://club.excelhome.net/thread-1238990-1-1.html
(出处: ExcelHome技术论坛)

tobeahumanbeing

lchhuo 发表于 2024-9-7 14:39
这个地方有解决的办法，你看看是不是你需求的，点击右键或者ctrl+c复制选择的区域时，在状态栏显示单元格地 ...

现在是selection已经不是已复制区域，需要返回已复制区域的range对象

lchhuo

我感觉就是你描述的需求，你打开这个表格，选择部分区域，点击右键复制，或者快捷键ctrl+c，然后再点击其它的单元格，看看状态栏显示