![](https://img-blog.csdnimg.cn/20201014180756926.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
小驴嗷嗷叫
知识、分享、成长
展开
-
整理合并各工作表的某行(列)到一个工作表
应用于这样一种场景——现在有一份有100个工作表的Excel文件,这100个工作表中都有一个名称为“资产负债率”的行数据,每个工作表对应一个公司名称。需求:将每个公司的“资产负债率”数据全部整理到新建的工作表。VBA代码如下:第一步:合并行数据:Sub 合并行数据()''Dim i As Byte '定义一个Byte类型的变量,名称为i For i = 1 To Worksheets.Count - 1 Step 1 'i从1到“工作表的数量-1”循原创 2021-10-12 10:02:17 · 489 阅读 · 1 评论 -
VBA根据某列内容创建工作表
Sub chaifenshuju()Dim sht As WorksheetDim k, i, j As IntegerDim irow As Integer Dim l As Integerl = InputBox("请输入你要按哪列分") '删除无意义的表Application.DisplayAlerts = FalseIf Sheets.Count &...原创 2020-05-05 21:14:18 · 1418 阅读 · 0 评论