根据另一个工作表中单元格中的值使工作表处于活动状态

Question

我有以下宏，它将在"添加课程"工作表中输入的值复制到"Bloggs，Joe"工作表上的单元格中。如何更改它，使其使用"添加课程"工作表中 C3 的值而不是硬编码的"Bloggs，Joe"？

Sheets("Add Course").Select
Range("C4").Select
Selection.Copy
Sheets("Bloggs, Joe").Select
Range("C7").Select
ActiveSheet.Paste

Answer 1

了解如何避免选择并使您的代码更快、更高效、更简洁。

With WorkSheets("Add Course")
    .Range("C4").Copy WorkSheets(.Range("C3").Value).Range("C7")
End With

Answer 2

查看如何避免使用 Select 并尝试这样的事情：

Worksheets(Worksheets("Add Course").Range("C3").Value).Range("C7").Value = Worksheets("Add Course").Range("C4").Value

Answer 3

试试这个：

Sheets("Add Course").Select
Range("C4").Select
Selection.Copy
Sheets(Sheets("Add Course").Range("C3").Value).Select
Range("C7").Select
ActiveSheet.Paste