Excel 基于单元格值重命名工作表

我有三个excel工作表，我正在使用

第一页是我放置所有数据的地方，这样它就可以填充到表2和表3中

第2页和第3页是我将要保存为pdf的内容

我的问题是，是否存在一个vba代码，该代码将第2页命名为单元格

A1

，旁边是字母“F”，然后第三页的单元格值再次命名为A1，但旁边是字母E

---

例如，单元格

A1

有Joy Nice，工作表2将命名为Joy Nice-F，工作表3将命名为Joy Nice-e。是的，我是VBA新手，我喜欢它的功能。谢谢。

像这样的事情应该可以做到（您需要根据需要调整名称）：

---

你的问题的答案是：是的，有！你能展示一下到目前为止你做了什么，你在哪里陷入困境吗？布鲁斯韦恩，谢谢。我喜欢它。非常感谢你！我想学习VBA，关于如何将电子表格保存为pdf的基本知识，如何打印，如何让一堆名称一遍又一遍地创建相同的字母，但使用不同的客户。你能推荐一本好书帮我解决这个问题吗？再次感谢您。您好，这个宏工作得很好，但我可以添加更多吗？例如，我需要将工作表2另存为pdf。然后我需要第3页的另一份Pdf。@jack-很抱歉在15日延迟回复您的第一条评论——老实说，当我得知（显然现在仍然是），我的“转到工具”是：Excel和Google中的宏记录器。我用这些来尽我最大的努力，然后当我陷入困境时，我会来这里四处打听。“还有一个我过去经常提到的问题，”杰克-对于你的另一个评论，这完全是一个新问题。如果我发布的宏适用于此特定问题，您可以通过单击帖子左侧的复选标记将其标记为答案。如果要另存为PDF，请尝试打开宏录制器，另存为PDF，停止录制器，然后检查它生成的代码。

Sub rename_sheets()
Dim renameCell As Range
Dim mainWS As Worksheet, ws As Worksheet

Set mainWS = Sheets("Sheet1") ' Change as necessary. This is the page with the names you want to use
Set renameCell = mainWS.Range("A1")

' Change the sheet names below to match the name they are *before* the renaming
Sheets("Sheet2").Name = renameCell.Value & "-F"
Sheets("Sheet3").Name = renameCell.Value & "-E"

End Sub