VB代码-excel自动排序

工作时碰到的问题：用例模板如下，若需要在中间新增用例，就需要重新排序。因为中间有空白行，不能直接使用下拉自动填充序列功能；手动变更时，太耗费时间，还容易出错。

解决方案：使用vb代码进行自动排序。

Option Explicit
Sub rangeit()Dim rDim firstNotNull Dim FirstValueDim FitstPosDim CountDim NewPosDim NewValue'从（1.2）开始寻找第一个不为空的单元格位置For r = 2 To 10000If Cells(r, 1).Value <> "" ThenfirstNotNull = rExit ForEnd IfNextFirstValue = Cells(firstNotNull, 1).Value'以流水号前面的分隔符分隔编号，这里的分隔符为“-”，也可以根据实际的进行更改'InStrRev(),返回一个字符串在另一个字符串中首次出现的位置。搜索从字符串的末端开始，但是返回的位置是从字符串的起点开始计数的FitstPos = InStrRev(FirstValue, "-")Count = 0For r = firstNotNull To 10000If Cells(r, 1).Value <> "" ThenNewValue = Cells(r, 1).ValueNewPos = InStrRev(NewValue, "-")If Left(FirstValue, FitstPos) <> Left(NewValue, NewPos) ThenFirstValue = NewValueFitstPos = NewPosCount = 0End IfCount = Count + 1'对编号列按流水号重新赋值Cells(r, 1).Value = Left(FirstValue, FitstPos) & CountEnd IfNext
End Sub

excel运行VB的方法：

1、选中sheet表，右键选中查看代码

2、在打开的窗口中编写代码，或者在外面写好直接复制进去

3、点击运行，重新排序成功

VB代码-excel自动排序相关推荐

VB.NET excel 列排序
VB.NET excel 按列排序今天在VB.NET的项目中需要导出数据到EXCEL,并且还要对VB.NET EXCEL进行列的排序操作(sort),总结了下,把关键代码帖出来,备用下 Dim Xl ...
VB实现excel自动拆分表格
工作场景:从系统导出后人工处理完的excel数据,需要按照部门拆分并推送给各部门人员. 传统的工作方式就只能人工一个个部门筛选,复制粘贴出来各自发送. 其实现在有些版本的excel或wps已经集成了根 ...
超实用的Excel自动排序小技巧，原来这么简单，早点知道就好了！
日常制作表格中,我们总是要给Excel数据进行排列,这样更利于我们预览.大家知道有哪几种比较实用的排序方法吗?如果不知道的话,请跟我一起动动手吧! 第一种:最为实用普遍的方法:升序降序排列步骤:单击 ...
又一个Jupyter神器，操作Excel自动生成Python代码
来源 | Python数据科学(ID: PyDataScience) 不得不说,Jupyter对于表的处理真的是越来越方便了,很多库可以直接实现可视化操作,无需写代码.但是这还不够,最近看到一个神器叫 ...
vba 自动排序_学会这个Excel表格技巧之后，立刻实现自动排序，太牛了
怎么实现自动排序呢?老师从网上下载的2018年各大城市最新平均工资排行表当我改动其中一个城市的平均工资时,比如广州由7965改为10000,整个表格的顺序会自动调整: 是不是很神奇的样子,怎么做到的 ...
【Python】又一个Jupyter神器，操作Excel自动生成Python代码！
大家好,我是东哥. 不得不说,Jupyter对于表的处理真的是越来越方便了,很多库可以直接实现可视化操作,无需写代码.但是这还不够,最近看到一个神器叫Mito,它真的是做到了无需写一行代码,而且手动的 ...
如何用VB实现Excel文件的自动合并
闲来无事,编写了一个简单而实用的合并Excel文件的函数,能够将多个XLS文件中指定数量的工作表自动合并到一个XLS文件里.当然,如果只是数据合并,则使用ADO就可以实现,但如果要保留表格格式,则恐怕 ...
又一个 Jupyter 神器，操作 Excel 自动生成 Python 代码
大家好,Jupyter对于表的处理真的是越来越方便了,很多库可以直接实现可视化操作,无需写代码. 但是这还不够,最近看到一个神器叫Mito,它真的是做到了无需写一行代码,而且手动的操作可以自动转换为代 ...
如何将excel里的数据批量导入ACCESS，要用vb代码？
下面是对EXECL的基础操作说明: Set xlApp = CreateObject("Excel.Application") '激活EXCEL应用程序 xlApp.Visible ...
excel设置自动排序123的详细教程
excel作为主要用于电脑编写的电子表格,主要包括了数据记录和整理.数据的加工和计算.数据的统计和分析等等功能,那么excel怎么设置自动排序123呢?下面小编要讲的内容就是excel设置自动排序教程 ...

VB代码-excel自动排序

VB代码-excel自动排序相关推荐

最新文章

热门文章