CN117094296A - 基于vb语言的表格拆分方法、智能终端及存储介质 - Google Patents

Abstract

本申请提出了一种基于VB语言的表格拆分方法、智能终端及存储介质。该方法包括：响应于第一操作，在VB代码编辑器中确定表格的拆分起始行；响应于第二操作，获取每次拆分的行数n，n为正整数；获取表格中需要拆分的总行数；从起始行开始每n行设置一下标并记录各个下标的位置信息，直至遍历表格，其中所述n行作为一分割体；根据各个下标的位置信息，复制各个分割体并分别形成子表格。本申请为基于VB语言的自动拆分，使得单一且重复的操作可以由计算器替代，出错概率较小，不会造成数据丢失，可靠性好，并且最少只需手动确定拆分起始行及获取每次拆分的行数，数据运维人员的手动操作较少，可以降低工作量。

Description

基于VB语言的表格拆分方法、智能终端及存储介质

技术领域

本申请涉及数据处理技术领域，具体涉及一种基于VB(Visual Basic)语言的表格拆分方法、智能终端及存储介质。

背景技术

日常数据处理中，通常将数据保存在excel表格中，有时需要将数十万条数据进行分类处理，或者进行等条数拆分以形成多个excel表格，称为子表格，并保存在多个文件中。例如，将表格表格的十万条数据按照每100条数据拆分为一个子表格，存放在一个子表格中。通常情况下，此种拆分一般由数据运营人员手动操作，例如将每100条复制到一个子表格中。但，手动拆分数据，不仅会因为操作上的失误导致数据丢失或者整理不当，而且耗费时间和人力。数据量较大时，更是无法轻松完成，导致维护困难、繁琐。

发明内容

鉴于此，本申请提供一种基于VB语言的表格拆分方法、智能终端及存储介质，可以改善人工手动拆分例如excel表格导致工作量大、数据容易丢失以及可靠性不佳的问题。

本申请提供的一种基于VB语言的表格拆分方法，包括：

响应于第一操作，在VB代码编辑器中确定表格的拆分起始行；

响应于第二操作，获取每次拆分的行数n，n为正整数；

获取所述表格中需要拆分的总行数；

从所述起始行开始每n行设置一下标并记录各个下标的位置信息，直至遍历所述表格，其中所述n行作为一分割体；

根据各个下标的位置信息，复制各个分割体并分别形成子表格。

可选地，所述方法还包括：获取所述起始行所在区域的列号，以得到每次拆分的列数m；和/或，响应于所述第二操作，获取每次拆分的列数；

各个所述分割体包括m列且与所述起始行所在区域的列号相同。

可选地，采用End(xlDown).Row函数指令获取每次拆分的尾部行号，以获取对应下标的位置信息。

可选地，采用Find函数指令获取每次拆分的尾部行号，以获取对应下标的位置信息。

可选地，通过响应于第三操作，获取所述总行数，所述总行数小于或等于所述表格录有数据的行数。

可选地，所述方法还包括：响应于第四操作，获取一名称并作为各个所述子表格的名称；和/或，输出各个所述子表格对应的拆分次数。

可选地，所述方法还包括：响应于第五操作，确定所述表格的表头，并将所述表头作为各个所述子表格的表头，其中所述起始行位于所述表头所在行的下游。

可选地，各个所述子表格与所述表格的格式相同。

本申请提供的一种智能终端，包括存储器和处理器，所述存储器上存储有程序，所述程序被所述处理器执行时实现如上任一项所述的基于VB语言的表格拆分方法的步骤。

本申请提供的一种存储介质，所述存储介质上存储有计算机程序，所述计算机程序被处理器执行时实现如上任一项所述的基于VB语言的表格拆分方法的步骤。

如上所述，本申请在VB代码编辑器中确定表格的拆分起始行，并获取每次拆分的行数及需要拆分的总行数，利用表格的连续性和统一性，从所述起始行开始，对表格中的所述总行数的行，按照每次选取所述行数的行的方式进行拆分，并形成为多个子表格。相比较于手动拆分，本申请为基于VB语言的自动拆分，每次拆分的行数相同，可以进行批量化操作，使得单一且重复的操作可以由计算器等机器进行替代，出错概率较小，不会造成数据丢失，可靠性好，并且最少只需手动确定拆分起始行及获取每次拆分的行数，数据运维人员的手动操作较少，可以降低工作量。

附图说明

图1为本申请实施例提供的一种基于VB语言的表格拆分方法的流程示意图；

图2为本申请实施例提供的一种表格拆分装置的结构示意图。

具体实施方式

为了解决现有技术中存在的上述问题，本申请提供一种基于VB语言的表格拆分方法、智能终端及存储介质。这几个保护主题基于同一构思，解决问题的原理基本相同或相似，各保护主题的实施方式可相互参阅，重复之处不予赘述。

为使本申请的目的、技术方案和优点更加清楚，下面将结合具体实施例及相应的附图，对本申请的技术方案进行清楚地描述。显然，下文所描述实施例仅是本申请的一部分实施例，而非全部的实施例。在不冲突的情况下，下述各个实施例及其技术特征可相互组合，且亦属于本申请的技术方案。

在本申请实施例的描述中，术语“中心”、“纵向”、“横向”、“长度”、“宽度”、“厚度”、“上”、“下”、“前”、“后”、“左”、“右”、“竖直”、“水平”、“顶”、“底”、“内”、“外”、“顺时针”、“逆时针”等指示的方位或位置关系为基于附图所示的方位或位置关系，仅为便于描述相应实施例的技术方案，而非指示或暗示装置或元件必须具有特定方位、以特定方位构造和操作，不能理解为对本申请的限制。

图1为本申请实施例提供的一种基于VB语言的表格拆分方法的流程示意图。所适用于的表格包括但不限于excel表格、wps表格、Numbers表格中的任一者。由于这类表格支持VB语言，因此在具体实施场景中，可以通过VB语言编码得到一新的VB代码编辑器，或者说对传统的VB代码编辑器进行重新编码，又或者说通过编写一程序或脚本以植入传统的VB代码编辑器中，以形成一具有本申请功能的新的VB代码编辑器。为便于描述，本申请将具有本申请功能的新的VB代码编辑器统称为VB代码编辑器。本申请的VB代码编辑器可具有适应需求的用户界面(UI)，此处不予以限定。

请参阅图1，所述拆分方法至少包括如下步骤S1至S4。

S1：响应于第一操作，在VB代码编辑器中确定表格的拆分起始行。

以excel表格为例，开启并运行VB代码编辑器的方式，包括但不限于如下一种：

方式1：启动excel程序，并打开本次需要进行拆分的表格，即所述表格；在表格的菜单栏中单击“开发工具”选项，然后单击显示出的“Visual Basic”选项，即可开启并运行VB代码编辑器。

方式2：启动excel程序，并打开本次需要进行拆分的表格，在表格的菜单栏中单击“文件”选项，然后单击显示出的“选项”选项，接着单击显示出的“自定义功能区”选项，在显示的“主选项卡”列表中勾选“开发工具”选项，并单击“确定”选项，表格的菜单栏中即可显示出“开发工具”选项，再执行方式1的操作，即可开启并运行VB代码编辑器。

所述起始行可以位于表头所在行的下游，例如表头的下一行。或者，对于未有表头的表格，所述起始行可以为表格的第一行。又或者，所述起始行可以是根据第一操作选定的表格的其中任一行。

所述第一操作可以表现为：在VB代码编辑器的UI中，点击“起始行”选项，然后通过鼠标移动光标来选定excel表格中的某一行。VB代码编辑器根据鼠标选定的区域来自动获取起始行所在区域的行号。

S2：响应于第二操作，获取每次拆分的行数n，n为正整数。

所述第二操作可以表现为：在VB代码编辑器的UI中，点击“输入拆分行数”选项，然后在弹出的界面中通过键盘输入n的数值。

在另一实施场景中，数据运维人员可以直接在excel表格中选定连续的n行，VB代码编辑器自动获取选定区域的行号以确定行数n，然后通过例如单击鼠标右键或者双击鼠标左键等操作，以控制弹出一显示有“确定拆分行数”选项的对话框，点击该选项，即可确定每次拆分的行数n。

S3：获取表格中需要拆分的总行数。

在一实施场景中，VB代码编辑器可以自动获取excel表格的总行数(不计入表头所在行)，以作为本次需要拆分的总行数。

excel表格的总行数可以指的是excel表格内录有数据的总行数，例如excel表格一般通过框线来限定各行各列，因此可以将被框线限定的行数作为总行数(不计入表头所在行)，在框线区域内即使中间(非第一行也非最后一行)存在空白行，该空白行也视为录有数据并作为总行数的一员。

在另一实施场景中，VB代码编辑器可以通过响应于用户操作来获取本次需要拆分的总行数，即，所述方法还包括：通过响应于第三操作，获取所述总行数，可选地，所述总行数小于或等于表格录有数据的行数。

所述第三操作可以表现为：点击VB代码编辑器的“输入拆分总行数”选项，以输入具体数值；或者，在VB代码编辑器的UI中显示有输入框，数据运维人员通过键盘直接输入具体数值。

S4：从起始行开始每n行设置一下标并记录各个下标的位置信息，直至遍历表格，其中所述n行作为一分割体。

以excel表格为例，行号1为表头，除表头以外的行号为2至10000，需要拆分的总行数最大值为9999。在步骤S4中，行号2至行号n+1作为一个分割体，行号n+2至行号2n+1作为一个分割体，以此类推，直至遍历表格，从而得到多个分割体。

行号n+1、行号2n+1等设置的下标的具体表现形式，可适应性设定，本申请不予以限定。本申请可以采用End(xlDown).Row函数指令，例如“total_data＝Cells(data_column(1,1)).End(xlDown).Row-n+1”，获取每次拆分的尾部行号，即行号n+1、行号2n+1等，以获取对应下标的位置信息。所谓位置信息可以理解为各个分割体的最后一行的行号。

在其他实施场景中，本申请可以采用Find函数指令，例如“total_data＝Cells.Find("*",LookIn:＝xlFormulas,SearchDirection:＝xlPrevious).Row-n+1”获取每次拆分的尾部行号，以获取对应下标的位置信息。

S5：根据各个下标的位置信息，复制各个分割体并分别形成子表格。

本申请可以将原表格(即未拆分之前的表格)拆分为对应数量的子表格，也可以通过步骤S5的复制形成对应数量的子表格后，保留原表格。

基于上述方法，本申请在VB代码编辑器中确定表格的拆分起始行，并获取每次拆分的行数及需要拆分的总行数，利用表格的连续性和统一性，从所述起始行开始，对表格中的所述总行数的行，按照每次选取所述行数的行的方式进行拆分，并形成为多个子表格。相比较于手动拆分，本申请为基于VB语言的自动拆分，每次拆分的行数相同，可以进行批量化操作，使得单一且重复的操作可以由计算器等机器进行替代，出错概率较小，不会造成数据丢失，可靠性好，并且最少只需手动确定拆分起始行及获取每次拆分的行数，数据运维人员的手动操作较少，可以降低工作量。

表格呈阵列单元排布，不仅包括行，还包括列。在执行前述拆分方法的过程中，本申请还可以获取所述起始行所在区域的列号，以得到每次拆分的列数m。例如，通常excel表格中各行所对应的列号是相同的，因此只需获取所述起始行所在区域的列号，即可得到其余行所在区域的列号。

在另一实施方式中，本申请可以响应于所述第二操作，获取每次拆分的列数m。即，数据运维人员根据需求选定部分或全部的列，以作为子表格的列。

各个分割体及子表格包括m列，且与所述起始行所在区域的列号相同。

在步骤S5之前，所述方法还包括：响应于第四操作，获取一名称并作为各个所述子表格的名称。例如，在步骤S3之后，UI中可以显示有“设定子表格名称”选项，数据运维人员点击该选项即可输入名称；可选地，如果未检测到第四操作或者未接收到输入的名称，VB代码编辑器可以默认将“分割文件”，作为各个所述子表格的名称。

可选地，在步骤S5中，输出各个子表格对应的拆分次数，例如某一子表格是属于第几次拆分得到的。

在步骤S5之前，所述方法还包括：响应于第五操作，确定表格的表头，并将表头作为各个子表格的表头，其中起始行位于表头所在行的下游。

所述第五操作可以表现为：在VB代码编辑器的UI中，点击“表头”选项，然后通过鼠标移动光标来选定excel表格中的表头所在区域的行；VB代码编辑器根据鼠标选定的区域来自动获取表头所在区域的行号。或者，本申请可以由VB代码编辑器自动识别excel表格的表头。

在另一实施方式中，本申请可以判断excel表格是否包含表头，如果包含表头，则确定表格的表头，并将所述表头存储，将表头作为各个子表格的表头；如果未包含表头，则直接将表格的第一行作为起始行。

在步骤S5中，各个子表格与所述表格的格式相同。本申请可以采用特殊粘贴，即包含源格式的粘贴，以便保持所有子表格的格式一致。可选地，按照既有(原表格)的文件名、路径、循环次数合并起来存储所有子表格。

本申请实施例还提供一种基于VB语言的表格拆分装置，如图2所示，包括第一录取模块21、第二录取模块22以及处理模块23。

第一录取模块21用于响应于第一操作以在VB代码编辑器中确定表格的拆分起始行，以及响应于第二操作以获取每次拆分的行数n，n为正整数。

第二录取模块22用于获取所述表格中需要拆分的总行数。

处理模块23用于从所述起始行开始每n行设置一下标，并记录各个下标的位置信息，直至遍历所述表格，其中所述n行作为一分割体；以及，根据各个下标的位置信息，复制各个分割体并分别形成子表格。

处理模块23作为拆分装置的中心处理单元，与第一录取模块21和第二录取模块22连接，并根据两者获取的信息执行如上述任一实施例的拆分方法的相应步骤。

例如，第一录取模块21还用于获取所述起始行所在区域的列号，以得到每次拆分的列数m；和/或，响应于所述第二操作以获取每次拆分的列数；处理模块23确定各个分割体包括m列且与起始行所在区域的列号相同。

例如，处理模块23采用End(xlDown).Row函数指令或者Find函数指令获取每次拆分的尾部行号，以获取对应下标的位置信息。

例如，第二录取模块22用于通过响应于第三操作，获取所述总行数，所述总行数小于或等于所述表格录有数据的行数。

例如，第一录取模块21或者第二录取模块22还用于响应于第四操作以获取一名称，处理模块23将其作为各个所述子表格的名称。

例如，处理模块23还用于输出各个所述子表格对应的拆分次数。

例如，第一录取模块21或者第二录取模块22还用于响应于第五操作以确定所述表格的表头，其中所述起始行位于所述表头所在行的下游，处理模块23还用于将所述表头作为各个所述子表格的表头。

例如，处理模块23还用于设置各个所述子表格与所述表格的格式相同。

本申请实施例还提供一种智能终端，包括存储器和处理器，所述存储器上存储有程序，所述程序被所述处理器执行时实现如上任一实施例所述的基于VB语言的表格拆分方法的步骤。

本申请实施例还提供一种存储介质，所述存储介质上存储有计算机程序，所述计算机程序被处理器执行时实现如上任一实施例所述的基于VB语言的表格拆分方法的步骤。

在本申请提供的智能终端和存储介质的实施例中，可以包含任一上述交互方法实施例的全部技术特征，因此具有对应的有益效果，说明书拓展和解释内容与上述方法的各实施例基本相同，在此不再做赘述。

可以理解，上述场景仅是作为示例，并不构成对于本申请实施例提供的技术方案的应用场景的限定，本申请的技术方案还可应用于其他场景。例如，本领域普通技术人员可知，随着系统架构的演变和新业务场景的出现，本申请实施例提供的技术方案对于类似的技术问题，同样适用。

本申请实施例方法中的步骤可以根据实际需要进行顺序调整、合并和删减。本申请实施例设备中的单元可以根据实际需要进行合并、划分和删减。

以上所述仅为本申请的部分实施例，并非因此限制本申请的专利范围，对于本领域普通技术人员而言，凡是利用本说明书及附图内容所作的等效结构变换，均同理包括在本申请的专利保护范围内。

尽管本文采用术语“第一、第二”等描述各种信息，但这些信息不应限于这些术语。这些术语仅用来将同一类型的信息彼此区分开。另外，单数形式“一”、“一个”和“该”旨在也包括复数形式。术语“或”和“和/或”被解释为包括性的，或意味着任一个或任何组合。仅当元件、功能、步骤或操作的组合在某些方式下内在地互相排斥时，才会出现该定义的例外。

Claims (10)

1.一种基于VB语言的表格拆分方法，其特征在于，包括：

响应于第一操作，在VB代码编辑器中确定表格的拆分起始行；

响应于第二操作，获取每次拆分的行数n，n为正整数；

获取所述表格中需要拆分的总行数；

从所述起始行开始每n行设置一下标并记录各个下标的位置信息，直至遍历所述表格，其中所述n行作为一分割体；

根据各个下标的位置信息，复制各个分割体并分别形成子表格。

2.根据权利要求1所述的方法，其特征在于，

所述方法还包括：获取所述起始行所在区域的列号，以得到每次拆分的列数m；和/或，响应于所述第二操作，获取每次拆分的列数；

各个所述分割体包括m列且与所述起始行所在区域的列号相同。

3.根据权利要求1或2所述的方法，其特征在于，采用End(xlDown).Row函数指令获取每次拆分的尾部行号，以获取对应下标的位置信息。

4.根据权利要求1或2所述的方法，其特征在于，采用Find函数指令获取每次拆分的尾部行号，以获取对应下标的位置信息。

5.根据权利要求1所述的方法，其特征在于，通过响应于第三操作，获取所述总行数，所述总行数小于或等于所述表格录有数据的行数。

6.根据权利要求1所述的方法，其特征在于，所述方法还包括：

响应于第四操作，获取一名称并作为各个所述子表格的名称；

和/或，输出各个所述子表格对应的拆分次数。

7.根据权利要求1所述的方法，其特征在于，所述方法还包括：

响应于第五操作，确定所述表格的表头，并将所述表头作为各个所述子表格的表头，其中所述起始行位于所述表头所在行的下游。

8.根据权利要求6或7所述的方法，其特征在于，各个所述子表格与所述表格的格式相同。

9.一种智能终端，其特征在于，包括存储器和处理器，所述存储器上存储有程序，所述程序被所述处理器执行时实现如权利要求1至8中任一项所述的基于VB语言的表格拆分方法的步骤。

10.一种存储介质，其特征在于，所述存储介质上存储有计算机程序，所述计算机程序被处理器执行时实现如权利要求1至8中任一项所述的基于VB语言的表格拆分方法的步骤。