如果获取不规则的表头地址

ovxyz

taller

ovxyz

taller 发表于 2023-5-16 11:55

多谢tall版主，
您这里通过合计获取这表头的最后一行。
其实我需要统计的表很多。部分表的表头下第一行不一定有合计。每太有规律。
这个表头的最后一行，有好并且简单的办法通过表的结构来获取吗？
例如：表头部分都是中文，表数据存在数字。或者表头有合并单元格，数据行没有合并单元格。
再次感谢指教了。

汉唐

楼主试试这个
Sub TEST()
Dim brr(1 To 1000, 1 To 10)
For k = 2 To Sheets.Count
With Sheets(k)
Application.FindFormat.Clear  '清除原有格式
Application.FindFormat.MergeCells = True
Set Rng = .Cells.Find(What:="", after:=.Cells(65536, 1), LookIn:=xlFormulas, LookAt:=xlPart, SearchFormat:=True) '按格式查找
If Not Rng Is Nothing Then
If Rng.MergeCells = True Then
r1 = Rng.Row
c1 = Rng.Column
r = Rng.MergeArea.Rows.Count
c = .Cells(r1 + r - 1, "iv").End(xlToLeft).Column
n = n + 1
brr(n, 1) = .Name
brr(n, 2) = .Cells(r1, c1).Resize(r, c - c1 + 1).Address(0, 0)
End If
End If
End With
Next
Cells(2, 1).Resize(1, 2) = Array("表名", "表头区域")
Cells(3, 1).Resize(n, 2) = brr
End Sub

kaixinbuy

你应该要的不是各种表头，而是想要在各种复杂的表头中进行数据提取和合并.
推荐你去tablemerge.com看看是不是你要的各种复杂表头的处理。

taller