Excel VBA 根据单元格内容更改工作表名称

最新推荐文章于 2024-06-18 09:47:08 发布
最新推荐文章于 2024-06-18 09:47:08 发布
阅读量4.3k 收藏 5
点赞数
分类专栏： Excel VBA 文章标签： excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Hello_World_2021/article/details/105513888
版权 
Public Sub 更改名称()
    For i = 2 To Worksheets.Count
        Worksheets(i).Name = Worksheets("目录").Cells(i, 2).Value
    Next
End Sub
Hello_World_2021
关注
  • 0
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VBA Excel工作表重命名
BeijixingVBA的博客
04-29 1061
VBA Excel工作表重命名
Excel VBA技巧实例手册
07-28
目录 第1篇 ExcelVBA基础 第1章 了解Excel宏 1．1 创建宏 技巧001显示“开发工具”选项卡 技巧002录制第一个宏 技巧003在VBE中创建宏 1．2 管理宏 技巧004运行宏 技巧005编辑宏 技巧006保存宏 技巧007设置宏的安全性 第2章 使用VBE工具 2．1 设置VBE环境 技巧008设置VBE窗口 技巧009设置VBE的属性 2．2 编辑模块 技巧010添加模块 技巧011删除模块 技巧012导出模块 技巧013导入模块 2．3 使用VBE的编码功能 技巧014显示属性/方法列表 技巧015显示常数列表 技巧016显示函数参数 第2篇 Excel对象 第3章 使用单元格对象 3．1 引用单元格对象 技巧017用Al样式引用单元格 技巧018用RlCl样式引用单元格 技巧019引用单元格区域 技巧020选择整行或者整列单元格 技巧021选择当前单元格的前/后单元格 技巧022引用相对其他单元格的单元格 技巧023引用当前区域 技巧024引用已使用区域 技巧025引用其他工作表的单元格 技巧026引用命名的单元格区域 技巧027在命名的单元格区域内循环 技巧028调整单元格区域的大小 技巧029引用单元格交叉区域 技巧030引用区域内的单元格 技巧031l引用数据列的最后一列单元格 技巧032引用整行数据列 技巧033引用不同长度的非连续列 技巧034引用条件格式单元格 技巧035引用工作表的所有单元格 3．2 获取单元格信息 技巧036获取标题行的信息 技巧037获取当前区域的信息 技巧038获取单元格的地址信息 技巧039确定单元格是否属于数组 技巧040查看公式单元格的信息 3．3 设置单元格格式 技巧041突显单元格 技巧042标记特殊单元格 技巧043设置单元格的属性 技巧044设置自动套用格式 技巧045设置单元格的边框线 技巧046设置单元格内容的对齐方式 技巧047设置文本方向 技巧048单元格的合并 3．4 操作单元格 技巧049复制单元格 技巧050添加单元格的公式 技巧051处理空白单元格 技巧052清除单元格内容 技巧053搜索特殊格式的单元格 技巧054删除包含特殊信息的单元格 技巧055按条件删除 技巧056筛选非重复值_ 技巧057获取单元格的列名 技巧058设置自动筛选 技巧059遍历筛选结果 技巧060获取筛选的条件 第4章 使用Worksheet对象 4．1 操作工作表 技巧061插入工作表 技巧062复制工作表 技巧063统计工作表的个数 技巧064同时选择多个工作表 技巧065重命名工作表 技巧066列出工作表的名称 技巧067判断工作表是否存在 技巧068判断工作表是否为空 技巧069设置工作表的标签颜色 技巧070按照工作表的标签排序 技巧071确定可视工作表的范围 技巧072保护工作表 技巧073取消工作表的保护 技巧074按照条件自动拆分工作表 技巧075删除工作表 技巧076隐藏工作表 技巧077打印工作表 技巧078禁止选择工作表中的单元格 技巧079导出工作表_ 技巧080限制工作表的移动范围 4．2 操作工作表的行和列 技巧081插入单行 技巧082插入多行 技巧083插入数据列 技巧084隐藏/显示数据行 技巧085设置单元格区域的行高 4．3 使用工作表事件 技巧086激活时排序 技巧087记录修改信息 技巧088记录单元格区域的修改信息 技巧089高亮显示选择的单元格 技巧090增加快捷菜单 技巧091工作表失焦操作 技巧092修改数据有效性 技巧093自定义条件格式 第5章 使用Workbook对象 5．1 操作工作簿 技巧094新建工作簿 技巧095打开已存在的工作簿 技巧096导入文本文件 技巧097保存工作簿 技巧098更名保存工作簿 技巧099保存副本 技巧100将文档保存为网页 技巧101查看工作簿的信息 技巧102查看工作簿的内置属性 技巧103设置工作簿密码 技巧104查看用户状态信息 技巧105设置工作簿的数字精度 技巧106激活工作簿 技巧107保护工作簿 技巧108设置名称 技巧109判断工作簿是否存在 技巧110判断打开的工作簿个数 5．2 使用工作簿事件 技巧111退出前强制保存工作簿 技巧112限制打印 技巧113限制保存工作簿 技巧114显示激活的工作表 技巧115显示新工作表的插入时间 第6章 使用Application对象 第7章 使用Windows对象 第8章 使用Chart对象 第3篇 应用程序篇 第9章 使用用户界面 第10章 自定义Excel2007界面 第4篇 数据库和其他应用篇 第11章 Excel和ADO 第12章 文件和文件夹操作技巧
教你用单元格数据作为Excel工作簿名称
weixin_33962621的博客
09-29 418
在Excel中，通常用Book1、Book2……作为工作簿名称。能不能让Excel采用我们选定的某个单元格中的数据做为工作簿名称来保存文档呢?答案是肯定的。 　　1、启动Excel，执行“工具→宏→Visual Basic 编辑器”命令，进入VBA编辑状态 2、在左侧的“工程资源管理器”窗口中，选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选项。...
【Excel VBA】批量新建并重命名工作表
热门推荐
Mercy92的博客
07-04 1万+
一、需求 根据sheet1所列名称，添加并重命名新的工作表。 二、实现 1.按照从前往后的顺序 Sub cre_ren_sheets() Dim num% /* 定义为integer*/ num = Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) /* num是非空单元格数*/ For i = 1 To num ...
VBA解决Excel批处理任务之：批量修改Sheet名称
跬步至千里
11-17 1万+
针对需要批量处理大量的Sheet改名的场景，使用VBA是非常便捷的方式。 简单介绍几种方法： 1. 录制宏法： 录制宏是用Excel自带的工具把改名改成一个可以复制操作的动作。 这里选择录制，会弹出一个宏设置窗口： 这里设置好宏名称就好，然后确定就可以开始录制你的操作。操作完成之后，再进入到宏窗口点击结束录制： 这样就可以通过执行来运行了，运行方法： 1. 通过选择宏： ...
VBA实战四---根据自定义的某一列创建工作表
Sampson的博客
07-09 1774
根据自定义的某一列创建工作表项目分析需求分析解决思路及代码最终效果图知识点总结整体代码 项目分析 项目所在地址 位置：王佩丰 VBA 课件\第七课 需求分析 在处理财务数据时，可能需要根据某一行中的数据对整个工作表进行分类创建各自的工作表 待处理的表格 解决思路及代码 1、对整个excel进行分析，判断是否存在一些无意义的工作表（这里只是为了让最终生成的工作表只有我们需要的），若有，则删除 If Sheets.Count > 1 Then Excel.Application.Displ
Excel VBA ——批量工作表重命名
weixin_30329623的博客
08-22 1520
虽然平常在用excel 2010重命名工作表的时候，一般可能会用“双击工作表”的方法来重名，但是遇到大批量重名的时候就很麻烦。 我的方法，先建一张新表，然后在第一列写好要命名的表名字，然后在VBE窗口里面输入代码 Sub rename() '批量工作表重命名 Dim i As Integer For i = 1 To 5 Works...
VBA Project中怎么更改sheet名
wujinglin7的博客
05-21 4667
在VBA开发时，对工作表的引用有两种： Sub test() Sheets("人员").Activate ' 使用sheet1的名字“人员”进行引用，需要始终与sheet名称保持一致 Sheet1.Activate ' 直接引用sheet1，不受工作簿中sheet的名称的影响。可在属性中更改"Sheet1"为自己想要的 End Sub 有时候工作簿中的sheet名字会改变，但是又不想经常更改代码中对工作表名的引用。 因此需要按sheet的属性进行引用，可以无视该sheet的名字。 在VBE中选
在EXCEL表格中利用VBA对文件名进行批量更改
12-26
在EXCEL表格中利用VBA对文件名进行批量更改。 利用EXCEL表格的便利性，将表格中第一列的文件名修改为第二列的文件名。
vba工作表重命名_使用带有条件的VBA代码重命名工作表列表
cunchi8090的博客
07-21 6081
vba工作表重命名Renaming of worksheets can be done manually, but it will look like a massive task if there are a lot of worksheets to be renamed and when we need to rename it based on some conditions or valu...
工作簿中另存指定工作表并以单元格数据命名
11-01
代码实现的是从一个工作簿中单独保存其中一个工作表，并以单元格数据命名新工作簿名称
Excel-VBA宏编程实例源代码-获取有特定单元格存在的工作表.zip
12-14
这个“Excel-VBA宏编程实例源代码-获取有特定单元格存在的工作表.zip”压缩包包含了用于搜索并定位含有特定单元格的工作表的VBA宏代码。下面我们将深入探讨VBA宏编程在Excel中的应用以及如何实现这一功能。 首先，...
Excel实现多个子表联动功能_Excel VBA
09-19
在Excel中，子表联动功能是一项实用技巧，它允许用户在一个工作簿的不同工作表之间建立关联，当一个工作表的数据发生变化时，其他关联的工作表也会相应地自动更新。这种功能在处理大量数据并需要实时同步信息的情况...
用VBA实现Excel单元格下拉框复选demo
08-07
本示例“用VBA实现Excel单元格下拉框复选demo”旨在教大家如何利用Visual Basic for Applications（VBA）编程语言在Excel中实现这样的功能。下面我们将详细探讨这一主题。 首先，让我们了解下拉框和复选框的基本...
Excel-VBA实用技巧范例-引用工作表.zip
03-18
你可以通过它们的属性和方法来访问和修改工作表内容。例如，`Worksheets("Sheet1")`用于引用名为“Sheet1”的工作表。 3. **范围（Range）对象**：在工作表上，你可以操作单元格或单元格集合，这就是Range对象。...
Excel-VBA实用技巧范例-工作表函数和VBA函数.zip
03-18
这个压缩包"Excel-VBA实用技巧范例-工作表函数和VBA函数.zip"包含了关于如何结合使用工作表函数和VBA函数来提升Excel功能和效率的实例和教程。 首先，我们要理解工作表函数。这些是在Excel中直接在单元格中输入的...
VBA学习(7)：按指定名单批量创建工作表
最新发布
nianfen的博客
06-18 260
第11行代码使用Application.InputBox语句使用户选择工作表名称的来源单元格区域。第34至第40行代码判断错误号，如果存在错误，说明工作表名称不符合Excel要求，包含斜杠等特殊符号，则删除新建的工作表，并记录错误名称。第6行至第9行代码判断工作簿是否有保护，如果工作簿有保护是无法创建工作表的，弹窗提示用户并退出程序。第21行代码记录当前表，以便程序运行结束后，Excel界面回到当前位置。第32至第33行代码新建工作表并命名。第50至第56行代码弹窗告知用户工作表创建完成的信息。
办公：批量修改sheet名称
Lizi_TT的博客
09-11 1902
7，代码运行成功后，就可以看到Excel表的sheet名称已经修改完成。6，然后点击菜单栏中的【运行】——【运行子过程/用户窗体】2，将要改的sheet名称在新建工作表中第一列按顺序填充。1，在已有工作簿中，在最后位置新增工作表（sheet）3，在键盘上按住Alt+F11，打开VBA窗口。4，依次点击工具栏中的【插入】——【模块】5，在模块窗口中输入以下代码。
用vba将excel内同一单元格内容去重
08-16
### 回答1： 很高兴为您解答，可以使用VBA函数来去除Excel单元格内重复的数据。首先，打开VBA编辑器，在模块中添加以下代码：Sub Remove_Dupes()Dim Lrow As Long, Dic As Object, K As VariantSet Dic = CreateObject("Scripting.Dictionary")With Sheets("Sheet1")Lrow = .Cells(Rows.Count, "A").End(xlUp).RowFor i = 2 To LrowK = .Cells(i, 1).ValueIf Not Dic.exists(K) ThenDic.Add K, NothingElse.Cells(i, 1).ClearContentsEnd IfNext iEnd WithEnd Sub然后运行该函数，即可完成去重操作。 ### 回答2： 使用VBA可以轻松地进行Excel工作表中同一单元格内容的去重操作。下面是一种实现方法： 1. 首先，打开Excel工作表，按下`ALT + F11`进入VBA编辑器。 2. 在VBA编辑器中，选择当前工作簿的VBA项目，在项目浏览器窗口中右击，选择"插入" -> "模块"，在VBA项目中创建一个新的模块。 3. 在新建的模块中，输入以下代码： ```vba Sub 去重() Dim ws As Worksheet Dim rng As Range Dim cell As Range Set ws = ThisWorkbook.ActiveSheet Set rng = ws.UsedRange ' 范围可以根据具体需求修改 For Each cell In rng If cell.Value <> "" Then ' 确保单元格不为空 cell.Value = application.Trim(cell.Value) ' 去除字符串两边的空格 cell.Value = application.WorksheetFunction.Trim(cell.Value) ' 去除字符串中间的多余空格 End If Next cell rng.RemoveDuplicates Columns:=1, Header:=xlNo ' 去重操作 Set rng = Nothing Set ws = Nothing End Sub ``` 4. 运行完以上代码后，可以按下`F5`或点击运行按钮，即可执行去重操作。 以上代码实现的去重操作是针对选定的范围（在代码中的`rng`）进行的。可以根据具体需求修改范围。此外，代码中使用`Trim`函数去除字符串两边的空格，可以避免潜在的去重错误。 希望以上解答能对您有所帮助！ ### 回答3： 使用VBA可以轻松将Excel中的同一单元格内容去重。下面是一种简单的方法： 1. 打开Excel并按下`ALT+F11`打开VBA编辑器。 2. 在VBA编辑器中，选择`插入`> `模块`以创建一个新模块。 3. 在新模块中输入以下代码： ``` Sub RemoveDuplicates() Dim rng As Range Dim cell As Range '选择需要去重的单元格范围 Set rng = Range("A1:A10") '将"A1:A10"替换为你要去重的单元格范围 '循环遍历选中的单元格范围 For Each cell In rng '使用RemoveDuplicates方法去重 cell.RemoveDuplicates Columns:=1, Header:=xlNo Next cell End Sub ``` 4. 替换代码中的范围`"A1:A10"`为你所需去重的单元格范围。例如，如果要去重的是A列的所有单元格，则可以使用`"A:A"`。 5. 按下`F5`运行代码。 6. 单元格范围内的重复内容将被删除，只保留唯一值。 请记住保存你的更改并备份你的数据，以防止不必要的数据损失。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值