我正在尝试将一些简单的 VBA 函数添加到工作中的 excel 文件中(我为一家营销公司工作),并且正在努力编写一个可以将数据从一张纸复制到另一张纸的按钮(它需要复制到每天更改的位置)
我正在使用 VBA 尝试选择我需要复制的值范围(并且它有效),但我正在努力将它们粘贴到所需的日常更改单元格中。我已经尝试编写一个公式,该公式提供了一条通往正确单元格的路径,然后将间接函数引入到 VBA 代码中以进行粘贴,但我似乎无法让它工作。
Sub Gross_Wrap_Click()
Sheets("AUTOM").Select
Range("C1:C5").Select
Selection.Copy
Sheets("Daily").Select
Range([indirect("'AUTOM!O7'")]).Select
Selection.Paste
End Sub
我希望最终产品是将 AUTOM 工作表中单元格 C1:C5 的内容复制并粘贴到 DAILY 工作表中的所需单元格(所需单元格源自函数并包含在具有间接途径的 VBA 中)。
但是,我只是收到了大量不同的错误消息
如果我没有在阅读您的代码时弄乱它,那么应该这样做:
Option Explicit
Sub Test()
Dim rng As Range 'Range object, means a cell or a range of cells
With ThisWorkbook 'here you reference the workbook, so you don't need to write Thisworkbook everytime, just "."
Set rng = .Sheets("Daily").Find(.Sheets("AUTOM").Range("O7")) 'we set the object rng to the cell in sheets Daily which has the Cell O7 from AUTOM sheet value.
.Sheets("AUTOM").Range("C1:C5").Copy 'copy the range from AUTOM
rng.PasteSpecial xlPasteValues 'and paste it's values to the range object we declared and defined above
End With
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句