如何在使用Visual Basic在Excel中粘贴不同表格之前更改复制值

你能帮我解决这个问题吗？ 我有以下代码，我想在“ActiveSheet.Paste”之前的“Selection.Copy”之后更改复制的值。例如：复制之前的值是“25_something”。 该值必须是“ActiveSheet.Paste”之前的“东西”，以便在单元格D4中只放置一些东西。

Sheets("All Sub Tasks").Select Range("D" & CStr(StartPos)).Select Application.CutCopyMode = False Selection.Copy Sheets(SheetName).Select Range("D4").Select ActiveSheet.Paste 

谢谢

Answer 1

build议使用variables来保存和修改源单元格的值，然后在修改后将该值放在目标单元格中​​（请参见下面的代码）build议还要声明工作簿。 您现在正在处理对象和variables，无需select工作表

 Dim WbkTrg As Workbook Dim CllValue As Variant Rem Assuming target workbook is active Set WbkTrg = ActiveWorkbook CllValue = WbkTrg.Sheets("All Sub Tasks").Range("D" & CStr(StartPos)).Value2 Sheets(SheetName).Range("D4").Value = CllValue