根据汇总表姓名、账户、合计3栏取得四介村、浜底头、浜南3个小组姓名、账户、合计3...

马鸣村

      各位大侠：现有1张汇总租金表，如何用函数公式提取四介村、浜底头、浜南3个小组姓名、账户、合计3栏各户黄色内容，因小组有几十个，复制粘贴比较麻烦，本人使用Excel2003低版本，,麻请各位大侠请施援手。



附件:

3190496160

小组有几十个的话，还是考虑用代码来完成吧

3190496160

Sub 汇总()
Dim ar As Variant
Dim arr()
ReDim arr(1 To 50000, 1 To 4)
For Each sh In Sheets
    If sh.Name <> "汇总表" Then
        r = sh.Cells(sh.Rows.Count, 2).End(xlUp).Row
        ar = sh.Range("a1:g" & r)
        For i = 2 To UBound(ar)
            If Trim(ar(i, 2)) <> "" Then
                n = n + 1
                arr(n, 1) = ar(i, 1)
                arr(n, 2) = ar(i, 2)
                arr(n, 3) = ar(i, 7)
                arr(n, 4) = sh.Name
            End If
        Next i
    End If
Next sh
If n = "" Then MsgBox "没有需要汇总的数据！": End
With Sheets("汇总表")
    .[a1].CurrentRegion.Offset(1).Borders.LineStyle = 0
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, 4) = arr
    .[a2].Resize(n, 4).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

2023年度租金汇总表.rar (24.88 KB, 下载次数: 16)

2023-11-11 09:31 上传

点击文件名下载附件

马鸣村

3190496160 发表于 2023-11-11 09:22
小组有几十个的话，还是考虑用代码来完成吧

大侠你好,本人不会使用VBA

3190496160

马鸣村 发表于 2023-11-11 09:35
大侠你好,本人不会使用VBA

哈哈哈，点击一下按钮你总该会吧？

3190496160

设置一下宏的安全级别，如何设置，可以百度一下看看，然后每次打开文件启用宏，无果你使用的是wps个人版，则需要安装一个插件才能使用vba代码

solextrade

用03版函数写的公式，字数400+



2023年度租金汇总表11.zip (41.07 KB, 下载次数: 21)

2023-11-11 09:58 上传

点击文件名下载附件

zpy2

cli_no_header;
select f03,f04,f09,udf_clean_rpt_ent(f02,'a') f02 from consolidateSheet where regexp('\d+',f04);


最后一张表多一列？

马鸣村

zpy2 发表于 2023-11-11 12:03
cli_no_header;
select f03,f04,f09,udf_clean_rpt_ent(f02,'a') f02 from consolidateSheet where regexp ...

大侠你好,本人不会使用VBA,麻请大侠用03版函数写个公式,谢谢.