多次查找字符拆分表格至簿内且修改表名为对应户主

cqcbc

           根据指定字符，查找相同标题，找到一次拆分一次，继续查找后面的标题，拆分表格至表内，直到拆分完毕。
          一、表格特点：此表是由系统导出，由多个表格拼接而成，行数不固定，列数固定，开始行有固定字符，结束行也有特定字符（不考虑结束行拆分最好，可以对付末尾不统一的）。
          二、需求：按开始行（标红的字符）拆分至表内。例子中标题行在1行、64行、127行、194行，拆分时就是1-63行为第一个表格，64-126行为第二个表格，类推；
          三、折分依据：A列，内容为表格中已标红的部分
          四、保存页签  拆分后的sheet名称更改为对应的户主姓名，如第一个就是：户主1性姓名A
         五、提醒：表格实际行数还有很多，只列出一部分。
         查找了许多拆分例子，没有找到这种类型的，发贴求教，希望大家帮忙，谢谢。

gwjkkkkk

请楼主参考附件。。。

zxsea_7426

一刀切，凑个热闹

半百

半百

Sub TEST()
With Sheets("Table 1")
    R = .Cells(Rows.Count, 1).End(3).Row
    For I = 1 To R
        If .Cells(I, 1) Like "*表一、基本信息*" Then
            R1 = I
        ElseIf .Cells(I, 1) = "序号" Then
            S = .Cells(I + 1, 2)
         ElseIf Left(.Cells(I, 1), 3) = "填表人" Then
            Sheets.Add(AFTER:=Sheets(Sheets.Count)).Name = S
            .Rows(R1 & ":" & I).Copy Sheets(S).[A1]
         End If
    Next
End With
End Sub

cqcbc

感谢大师们的帮助，gwjkkkkk和zxsea_7426大师的还能保留格式，再赞！！

cqcbc

zxsea_7426 发表于 2023-2-13 21:15
一刀切，凑个热闹

     细细看了老师的代码，发现是我的模拟表出现问题了，并且没有说明，误导了老师。表中的标红部分原来是没有的，是我为了让它更加醒目而特意加上的。
     不过也好，可以作为按单元格的颜色来拆分的例子。

cqcbc

如果末尾行没有指定的字符，按查找"表一、基本信息"标题行，计数，选取第一次标题至第二次标题的上一行，怎么写呢?
请大师帮忙。

cqcbc

希望老师们节日快乐之后，继续帮忙完善一下，谢谢。同时祝老师们节日快乐

ykcbf1100

cqcbc 发表于 2023-2-14 09:49
如果末尾行没有指定的字符，按查找"表一、基本信息"标题行，计数，选取第一次标题至第二次标题的上一行，怎 ...

这个代码可以满足你的要求。