[原创]获取表格标题行数的自定义函数

hhzjxss

最近对工作表、工作簿汇总与拆分产生了兴趣，进行了一段时间的研究，发现表格的标题行的行数，都是要通过程序默认设定，或者是通过选取获得。

我一直在思考这个问题，如果能够通过程序自动获取表格标题行的行数呢？

这样可以手工选择的麻烦，但一直没得要领。

思来想去，产生了一种思路：

1、从第一行往下依次提取单元格的内容，判断是否含有“小计”、“合计”、“总计”等字样，如果有，则认为其上一行就是标题行的最后一行；如果没有，则进行下一层判断；

2、从第一行第一列的内容与第二行第一列的内容进行对比，判断单元格内容的数据类型是否一致，如果一致，说明已经是表格的内容，则其上一行就是标题行的最后一行。
动画：

1. Function 提取标题行数(Sht As Worksheet)
   
2.     Dim i%, colm%, rowm%, j%, btrow%
   
3.     Dim str1, str2
   
4. 
   
5.     On Error Resume Next
   
6. 
   
7.     rowm = Application.Min(ActiveSheet.UsedRange.Rows.Count, Range("A1").CurrentRegion.Rows.Count)
   
8.     colm = ActiveSheet.UsedRange.Columns.Count
   
9. 
   
10.     For i = 1 To rowm
    
11.         k = 0
    
12.         For j = 1 To colm
    
13.             str1 = Cells(i, j).Value
    
14.             str2 = Cells(i + 1, j).Value
    
15.             ''如果有“小计”、"合计"、“总计”说明是表格内容行一行，则上一行为标题行
    
16.             If str1 Like "*小*计*" Or str1 Like "*合*计*" Or str1 Like "*总*计*" Then
    
17.                 提取标题行数 = i - 1
    
18.                 Exit Function
    
19.             Else
    
20.                 ''判断上、下两行对应单元格的数据是否都是相同的类型，相同则说明是正文，则上一行就是标题的最后一行
    
21.                 If TypeName(str1) = TypeName(str2) Then
    
22.                     k = k + 1
    
23.                 End If
    
24.                 If k = colm Then
    
25.                     提取标题行数 = i - 1
    
26.                     Exit Function
    
27.                 End If
    
28.             End If
    
29.         Next j
    
30.     Next i
    
31. End Function

复制代码

代码测试：

1. Sub AAA()
   
2.     MsgBox "标题有" & 提取标题行数(ActiveSheet) & "行。"
   
3. End Sub

复制代码

附件下载：




但代码如果一下BUG，当表格内容有空格时，造成上、下两行的单元格数据类型不同，就会使程序会继续往下循环判断，以致于获取的标题行比实际的标题行要大几行，这个问题我还没有想到好的方法解决，大家如果有好的思路，欢迎完善代码，谢谢！

hhzjxss

2018年上班头一天啦，我到论坛转一圈呀！

hhzjxss

小修改了了下，增加了对“序号”、"编号"、“姓名”、“性别”等的识别。

1. Function 提取标题行数(Sht As Worksheet)
   
2.     Dim i%, colm%, rowm%, j%, btrow%
   
3.     Dim str1, str2
   
4. 
   
5.     On Error Resume Next
   
6. 
   
7.     rowm = Application.Min(ActiveSheet.UsedRange.Rows.Count, Range("A1").CurrentRegion.Rows.Count)
   
8.     colm = ActiveSheet.UsedRange.Columns.Count
   
9. 
   
10.     For i = 1 To rowm
    
11.         k = 0
    
12.         For j = 1 To colm
    
13.             str1 = Cells(i, j).Value
    
14.             str2 = Cells(i + 1, j).Value
    
15.             ''如果有“小计”、"合计"、“总计”说明是表格内容行一行，则上一行为标题行
    
16.             If str1 Like "*小*计*" Or str1 Like "*合*计*" Or str1 Like "*总*计*" Then
    
17.                 提取标题行数 = i - 1
    
18.                 Exit Function
    
19.                 ''如果有“序号”、"编号"、“姓名”、“性别”等，且下一行的单元格不为空，则说明不是合并单元格，则本行为标题行
    
20.             ElseIf str1 Like "*序*号*" Or str1 Like "*编*号*" Or str1 Like "*姓*名*" Or str1 Like "*性*别*" Then
    
21.                 If str2 <> "" Then
    
22.                     提取标题行数 = i
    
23.                     Exit Function
    
24.                 End If
    
25.             Else
    
26.                 ''判断上、下两行对应单元格的数据是否都是相同的类型，相同则说明是正文，则上一行就是标题的最后一行
    
27.                 If TypeName(str1) = TypeName(str2) Then
    
28.                     k = k + 1
    
29.                 End If
    
30.                 If k = colm Then
    
31.                     提取标题行数 = i - 1
    
32.                     Exit Function
    
33.                 End If
    
34.             End If
    
35.         Next j
    
36.     Next i
    
37. End Function

复制代码

hhzjxss

怎么帖子都看不了呀，动画总在打圈圈！