表头一样，提取不同的供应商制作目录+超链接

ping200030

导出的一页中，按照供应商分成若干表，由于供应商数量多，查找供应商不方便，能帮忙制作个目录+超链接？？

不知道为什么

如图，参考。。。。。。。。

不知道为什么

附件  测试。。。。。。

半百

3190496160

Sub 建立目录超链接()
With Sheets("sheet1")
     r = .Cells(Rows.Count, 1).End(xlUp).Row
     arr = .Range("a1:a" & r)
End With
With Sheets("目录")
    .[a1].CurrentRegion.Offset(1).Clear
    n = 1
     For i = 1 To UBound(arr)
        If InStr(arr(i, 1), "预付账款") > 0 Then
            n = n + 1
           .Hyperlinks.Add Anchor:=.Range("a" & n), Address:="", SubAddress:="sheet1!A" & i
        End If
    Next i
End With
End Sub

3190496160

Sub 建立目录()
With Sheets("sheet1")
     r = .Cells(Rows.Count, 1).End(xlUp).Row
     arr = .Range("a1:a" & r)
End With
With Sheets("目录")
    .[a1].CurrentRegion.Offset(1).Clear
    n = 1
     For i = 1 To UBound(arr)
        If InStr(arr(i, 1), "预付账款") > 0 Then
            n = n + 1
           .Hyperlinks.Add Anchor:=.Range("a" & n), Address:="", TextToDisplay:=Split(arr(i, 1), "-")(1), SubAddress:="sheet1!A" & i
        End If
    Next i
End With
End Sub

3190496160

3190496160

excel中，按供应商制作目录 超链接.rar (16.88 KB, 下载次数: 17)

2023-4-26 11:54 上传

点击文件名下载附件

kaixinbuy

直接将所有凭证的表头和每行记录汇总到一个表格中，想怎么筛选和查询就怎么查询

提取表头和每行分录：





汇总结果：