【问题标题】:Copy data to user selected cell in another workbook?将数据复制到另一个工作簿中用户选择的单元格?
【发布时间】:2012-05-30 15:21:56
【问题描述】:

我对 VBA 还很陌生 假设目标单元格的位置已知,我想出了如何将单元格值从一个工作簿复制到另一个工作簿。

我需要用户选择工作表中的单个单元格,然后单击附加到宏的命令按钮时,将固定位置的数据复制到该单元格。

如果有任何建议,我将不胜感激......

我需要打开一个新工作簿并复制单元格/命名范围,然后返回到原始工作簿并粘贴到用户选择的位置。如果是范围,则将选定的单元格作为起始单元格。

【问题讨论】:

  • 你试过用ActiveCell.Copy代替Range("XXX").Copy吗?
  • 其实我知道数据在哪里。它需要被复制的单元格将由用户选择。
  • ActiveCell.Paste 那么?!这是假设目标工作表上的按钮。
  • 我认为这可行,但因为我打开另一个工作簿来收集信息.. ThisWorkbook.Worksheets(usname).Range("xxx").PasteSpecial 有效,但 ThisWorkbook.Worksheets(usname).ActiveCell .PasteSpecial 给出下标超出范围错误
  • 如果他们在选择单元格后单击了您的按钮,那么您可以使用Activecell.Address 获取该位置并将其粘贴到您的粘贴中:ThisWorkbook.Worksheets(usname).Range(SavedCellAddress).PasteSpecial

标签: excel vba


【解决方案1】:

我使用以下方法来解决我的问题..

我将行和列索引传递给处理复制的函数 获取单元格索引

Activecell.row
Activecell.column

然后按如下方式粘贴到该位置...

ThisWorkbook.Worksheets(<worksheetname>).Cells(row,column).pastespecial

【讨论】:

    猜你喜欢
    • 2020-11-11
    • 1970-01-01
    • 2012-12-08
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多