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

查看how to avoid using 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

根据另一个工作表中单元格中的值激活工作表

3 个答案: