VBA根据某列内容创建工作表

最新推荐文章于 2025-03-10 22:36:55 发布

小驴嗷嗷叫

最新推荐文章于 2025-03-10 22:36:55 发布

阅读量1.5k

点赞数

分类专栏： VBA 文章标签： vba excel

本文链接：https://blog.csdn.net/oqqMi123456789555/article/details/105938964

版权

本文介绍如何利用VBA（Visual Basic for Applications）脚本，根据Excel某列的数据自动创建新的工作表。通过遍历指定列的单元格，当遇到新内容时，VBA将创建一个新的工作表，并将该内容作为工作表名称，帮助用户高效管理大量数据。

摘要由CSDN通过智能技术生成

Sub chaifenshuju()


Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer 
Dim l As Integer


l = InputBox("请输入你要按哪列分")       


'删除无意义的表
Application.DisplayAlerts =

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

小驴嗷嗷叫

关注关注

0
点赞
踩
3

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

Excel中用VBA将根据列内容分割成多个工作表

梦想庚远

11-04

8594

Sub 工作表拆分2() '通过筛选方法完成需求，速度快，但当有合并单元格时就不能用。读者可以根据实际情况选用 Dim SplitCol As String, ColNum As Integer, HeadRows As Byte, arr, lastrow, i, ShtIndex, only As New Collection, Rng As Range SplitCol =

excel数据按某列分类并新建sheet类工作表

biggestbugvip的博客

09-19

1685

python操作excel数据按某列分类并按照类新建sheet工作表。

参与评论您还未登录，请先登录后发表或查看评论

VBA实战四---根据自定义的某一列创建工作表

Sampson的博客

07-09

2076

根据自定义的某一列创建工作表项目分析需求分析解决思路及代码最终效果图知识点总结整体代码项目分析项目所在地址位置：王佩丰 VBA 课件\第七课需求分析在处理财务数据时，可能需要根据某一行中的数据对整个工作表进行分类创建各自的工作表 待处理的表格解决思路及代码 1、对整个excel进行分析，判断是否存在一些无意义的工作表（这里只是为了让最终生成的工作表只有我们需要的），若有，则删除 If Sheets.Count > 1 Then Excel.Application.Displ

excel VBA根据表格内容新建工作簿并贴入内容

qq_25846269的博客

08-11

4438

Sub addRe() '1.此脚本用于根据sheet1中的第一列从第三行开始的数据新建工作簿并重命名 '2.复制第一列和对应的列的值 '3.调整新建工作簿的列宽 ScreenUpdating = False '关闭屏幕刷新 Dim sCount As Long '列数 Dim sCol As Long '行数 Dim...

右键新建里面没有word和excel_Excel中为什么修改了新建工作簿的选项，新建以后还是没有生效...

weixin_39930276的博客

11-23

337

前面介绍了如何在Excel选项里面修改新建工作簿的一些选项。但是在实际使用的时候，发现新建了一个工作簿，还是原来的设置。修改的一些选项并没有生效。这是因为在使用鼠标右键新建的时候，新建的是一个工作表而不是工作簿。只有在新建一个空白工作簿的时候，这些设置才会生效。如果需要在桌面右键新建的时候也生效，需要额外的设置。在C:WindowsShellNew路径中找到一个名为EXCEL12的文件。当然电脑不...

excel根据数据批量创建并重命名工作表

Tassel_YUE的博客

07-15

2911

根据一列数据，批量创建并重命名工作表。

VBA之按照筛选条件拆分多表通用方法

amamiyayouko的博客

03-30

3168

在一个工作簿中,想对某一列做筛选,并且拆分到后面的工作表里,通用代码如下: Sub chaifenshuju() Dim sht As Worksheet Dim k, i, j As Integer Dim irow As Integer '这个说的是一共多少行 Dim l As Integer Dim sht0 As Worksheet Set sht0 = ActiveSheet l = I...

杨老师课堂_VBA学习教程之根据部门列创建工作表

03-02

杨老师课堂_VBA学习教程之根据部门列创建工作表

excel vba根据某列姓名匹配多个表格中其他信息

09-20

在Excel VBA中，你可以使用循环结构如For...Each、Do While等配合查找函数（如Find、Match或Filter）来实现根据特定列（比如“姓名”列）在多个工作表或多张表格中查找并匹配相应的信息。以下是基本步骤： 1. **...

Excel VBA 宏自动创建表格

我的专栏

03-14

4790

Excel VBA 宏 - 自动创建表格应朋友的需求，编写了一个 VBA 宏，用于自动创建工作簿，实现了排版布局、冻结表头、条件格式、自动求和、单元格保护等功能。分别创建了 4 个工作簿 1-12月流水帐+库存表、1-12月银行现金日记账、1-12月商品进货单、单一帐目表，用于小公司记账比较方便。 Sub Main() Call 创建流水账("商品销售流水账_自动创建") Call 创建日记账("银行现金日记账_自动创建") Call 创建进货单("商品进货单_自动创建", "2

VBA之根据筛选条件创建新的工作表完整版

amamiyayouko的博客

03-26

6035

工作中,筛选条件肯定不止一个,有时候要筛选第一列,第二列,而不是某一个固定的列的条件以上的ABCDEF列都有可能被当成筛选对象代码如下 Sub chaifenshuju() Dim sht As Worksheet Dim k, i, j As Integer Dim irow As Integer '这个说的是一共多少行 Dim l As Integer l = InputBox(“请输入...

杨老师课堂之Excel VBA 程序开发第六讲根据部门列创建工作表

杨校的博客

05-16

2173

课件下载：方式1：本节课件下载地址：链接: https://pan.baidu.com/s/1rf5pRmZ95fjVbz70KYi6Aw 密码: q9yk方式2：或点击此处下载效果预览图：示例代码：Sub 根据部门创建表并且完成数据拆分最终版() Dim sht As Worksheet '定义变量 sht作为...

vba筛选出满足条件的数据_VBA 实战案例：自动按日期筛选数据，另存为新文件...

weixin_39672194的博客

12-11

5730

这是我利用业余时间为公司 MES 项目写的一个辅助程序，现学现用的成果，学艺不精，花了不少时间。任务要求：按日期筛选数据，将筛选结果另存为一个新的工作簿。任务看起来很简单，手动筛选另存一下不就好了，何必写程序，对吧？如果只是一两个文件，偶尔为之还行，但是生产线这样的Excel数据表有几十个，需要每天处理一次，没有效率，那肯定没人愿意干的。幸运的是这些表格之前也是我为车间设计的，格式统...

Excel中使用VBA筛选数据并将结果另存为新的EXCEL文件

热门推荐

城市蜗牛

11-23

2万+

今天同学问我如题的问题。简单查了一下网上的代码。实现了要求，特留记一下。需求：某EXCEL文件中有两个（其实是多个，但需要用的就两个）如下图：同学的领导要求，根据选中的名称显示出这个单位的所有手机号码（为保护隐私用*号替换了）及相关信息。说白了就是表（正常集团 (2)）里的数据太多，他想要根据关面列出的名查看其具体包含哪些号等信息。解决方案：先将“正常

VBA之符合条件的建立一个工作表并以条件命名

m0_73280369的博客

08-16

1273

代码】VBA之从工作表中获取符合条件的建立一个工作表并以条件命名。

vba单元格批量赋值_Excel VBA工作薄 5.1 按照单元格内容批量创建工作薄我让你10秒...

weixin_39769675的博客

12-14

551

Excel VBA工作薄 5.1 按照单元格内容批量创建工作薄我让你10秒前景提要今天开始我们进入第5序列的学习，本序列我们将要学习的时候关于工作薄的相关知识和各种操作，相信很多的童鞋都已经迫不及待的想要学习这些方面的知识了，因为在很早的时候就有童鞋私信我说想要接触这方面的知识，小编在完成了前面4个序列差不多49篇的基础知识的分享之后，也是成功的来到了第5序列，今天开始我们一起进入VBA和工作薄...

VBA常用小代码：按指定名称批量建立工作表

vatermutter的博客

09-10

6640

转自： https://www.sohu.com/a/194644736_417040 VBA根据A列数据批量建立工作表的代码如下： Sub NewSht() 'ExcelHome VBA编程实践与学习 Dim Sht As Worksheet, Rng As Range Dim Sn, t$ Set Rng = Range("a2:a" & Cells(Rows.Co...

批量删除多个 Excel 文件中的宏