命令为“用单元格C19中写入的名称转到表单”（VBA-Excel）

我有这个代码，其中“20y”是我想通过简单地添加工作表名称到一个单元格（例如让C19）来改变它的工作表名称。 我希望程序更加灵活，并从C19单元中读取工作表的名称，所以我可以简单地将其更改为我想要的（例如20年或10年或5年，…）。
非常感谢！

Range("A19:B19").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("B19").Select Sheets("20y").Select Range("A2:B2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Histogram").Select Range("A19").Select ActiveSheet.Paste 

最好的，Neos

Answer 1

你可以简单地添加：

 target_sheet = Sheets(1).Range("c19").Value 

并replace表格（“20y”）

 Sheets(target_sheet).Select 

当然，请用您C19所在的纸张来replace纸张（1）。