当我们对数据进行筛选、隐藏或者删除之后,之前的序号都会乱掉,如下动图所示:
excel VBA判断工作表是否存在&不存在时创建
Function表存在(s)ForEachiInSheetsIfi.Name=sThen表存在=1'连接空白是避免表格名为数值时格式不同'Debug.Printi.Name=sNextEndFunctionFunction建表(s)ForEachiInSheetsIfi.Name=sThenExitFunctionNe

excel 如何保证筛选、隐藏、删除后保持序号连续性
那么如何始终保持序号的连续性呢?
这个问题其实不难解决,这里需要用到SUBTOTAL函数,如下动图所示,在A2单元格内输入公式:=SUBTOTAL(103,B$2:B2)*1,下拉填充。

excel 如何保证筛选、隐藏、删除后保持序号连续性2
说明:SUBTOTAL函数是“返回列表或数据库中的分类汇总”,该函数的语法是subtotal(function_num,ref1, ref2,...), function_num 有1-11和101-111。今天用到的function_num 是103,意思表示是“忽略隐藏值的非空值单位格计数”。
excel 如何保证筛选、隐藏、删除后保持序号连续性的下载地址:
VBA非登陆下载Excel文件并处理例子
'下载文件相关函数申明PrivateDeclareFunctionURLDownloadToFileLiburlmonAliasURLDownloadToFileA(ByValpCallerAsLong,ByValszURLAsString,ByValszFileNameAsString,ByValdwReservedAsLong,ByVallpfnCBAsLong)AsLongPublicD