databasemetadata获取表注释_有比这更快的Excel工作表拆分法吗？有，你就最牛！【Excel教程】...

95 阅读 0 评论 63 点赞

我是靠谱客的博主敏感咖啡豆，最近开发中收集的这篇文章主要介绍databasemetadata获取表注释_有比这更快的Excel工作表拆分法吗？有，你就最牛！【Excel教程】...，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

回复[目录]学习113篇Excel教程

全套Excel视频教程，微信扫码观看

各位小伙伴有没有遇到过这样的问题：当我们把所有的信息汇总在一张表里后，又需要将这张大表按某一条件再拆分成多个工作表。那怎么才能实现呢？可能最笨的方法就是在原工作表筛选数据然后复制粘贴到新工作表，不过这种方法不适合数据多的案例，并且新工作表也需要一一重命名，显得繁琐。今天就给大家介绍两种快捷实用的工作表拆分方法。

如图，现在要把这个工作表的内容按城市拆分成多个工作表。

第1种：极速拆分——VBA(文中提供有代码)

VBA是EXCEL处理大量重复工作最好用的工具。不过很多人对VBA一窍不通，所以今天给大家分享一段代码，并且详细解释了如何根据实际表格修改代码值，方便大家在工作中使用。

(1)按住Alt+F11打开VBA编辑器，点击“插入”菜单下的“模块”。

(2)在右侧代码窗口输入下列代码。不想动手输入的可以加群下载已经准备好的代码文件，直接复制粘贴即可。

Sub 拆分表()

    Dim i, iRow, iCol, t, iNum As Integer, sh As Worksheet, str As String

    Application.ScreenUpdating = False

    With Worksheets("Sheet1")

     iRow = .Range("A65535").End(xlUp).Row

     iCol = .Range("IV1").End(xlToLeft).Column

     t = 3

        For i = 2 To iRow

            str = .Cells(i, t).Value

            On Error Resume Next

            Set sh = Worksheets(str)

            If Err.Number <> 0 Then

                Set sh = Worksheets.Add(, Worksheets(Worksheets.Count))

                sh.Name = str

            End If

            sh.Range("A1").Resize(1, iCol).Value = .Range("A1").Resize(1, iCol).Value

            iNum = sh.Range("A" & Rows.Count).End(xlUp).Row

            sh.Range("A" & iNum + 1).Resize(1, iCol).Value = .Range("A" & i).Resize(1, iCol).Value

            Next i

    End With

Application.ScreenUpdating = True

End Sub

代码解析：

这里用红色文字表示需要根据实际修改的代码参数；'用于表示注释，其后的文字并不影响代码的运行，只是用于说明如何代码的。这里特意用灰色表示注释文字。

Sub 拆分表 '文件名称，根据自己的文件名修改

Dim i, iRow, iCol, t, iNum As Integer, sh As Worksheet, str As String

Application.ScreenUpdating = False '关闭屏幕刷新

With Worksheets("Sheet1") '双引号内是工作簿名称,根据实际工作簿名称修改

iRow = .Range("A65535").End(xlUp).Row '从A列的最后一行开始向上获取工作表的行数，一般只改动Range中的列参数，如要工作表有效区域是从B列开始的，值就是B65535

iCol = .Range("IV1").End(xlToLeft).Column '从最后列(IV)第1行开始向左获取工作表的列数，一般只改动Range中的行参数，如要工作表有效区域是从第2行开始的，值就是IV2

t = 3 't为列数，设置依据哪一列进行拆分，譬如，如果是按E列拆分，这里就是t=5

For i = 2 To iRow 'i为行数，设置从第几行开始获取拆分值，要根据工作表实际改动

str = .Cells(i, t).Value '获取单元格(i, t)的值作为拆分后的表格名称

On Error Resume Next

Set sh = Worksheets(str) '创建以上述获取值为名的工作表

If Err.Number <> 0 Then '如果不存在这个工作表则添加一个并命名

Set sh = Worksheets.Add(, Worksheets(Worksheets.Count))

sh.Name = str

End If '如果存在这个工作表

sh.Range("A1").Resize(1, iCol).Value = .Range("A1").Resize(1, iCol).Value '获取工作表标题，一般只改动Range的列值和Resize中的行值，譬如工作表的标题是从B列第3行开始的，则这句代码就变成 sh.Range("B1").Resize(3, iCol).Value = .Range("B1").Resize(3, iCol).Value'

iNum = sh.Range("A" & Rows.Count).End(xlUp).Row '一般只改Range中的列值，如工作表是从B列开始的，这里就变成Range("B" & Rows.Count).End(xlUp).Row

sh.Range("A" & iNum + 1).Resize(1, iCol).Value = .Range("A" & i).Resize(1, iCol).Value

'在新表中粘贴工作表数据，一般只改动Range的列值，若工作表是从B列开始的，则就改成B变成Range("B" & iNum + 1).Resize(1, iCol).Value = .Range("B" & i).Resize(1, iCol).Value

Next i

End With

Application.ScreenUpdating = True '打开屏幕刷新

End Sub

(3)代码输入完成后，点击菜单栏里的“运行子过程”。这样工作表就拆分完成了。