恳请大神们帮忙看下这个分类的难题

qiongmei6 · 发表于 2024-2-14 00:23

本帖最后由 qiongmei6 于 2024-2-14 09:20 编辑

我想在汇总表格中求得一个代码，他找出凡是有“工资”或者“物贴”表格中的a：c列把不属于广州集中在“汇总”表格中g2：h列（如果a列和b列的数据一致，则只保留一个，如果a列和b列数据不一致，则都保留，例如“工资”中有a列北京，b列1234，而“物贴"表中也有a列北京，b列1234,那么显示在汇总表里的g：i列只保留一个北京，1234，张3，但是如果工资表里有非广州的账号都是12345，但是他们单位各自不同，那么他们都保留），把属于广州的集中在“汇总”表格中j2：k列（每个账号是唯一），目前“汇总”表格中g2：h列，j2：k列就是我希望代码执行后得到的数据。谢谢各位大神的帮忙。

x-xx-xx · 发表于 2024-2-14 10:10

ykcbf1100 · 发表于 2024-2-14 10:16

附件供参考。。。

ykcbf1100 · 发表于 2024-2-14 10:16

参与一下。。。

Sub ykcbf() '//2024.2.14
Dim arr, brr(1 To 10000, 1 To 6)
Set d = CreateObject("Scripting.Dictionary")
st = "广州"
Set sh = ThisWorkbook.Sheets("汇总")
For Each sht In Sheets
If sht.Name <> sh.Name Then
With sht
r = .Cells(Rows.Count, 1).End(3).Row
arr = .Range("a1:c" & r)
End With
For i = 2 To UBound(arr)
s = arr(i, 1) & "|" & arr(i, 2)
If arr(i, 1) <> st Then
If Not d.exists(s) Then
m = m + 1
d(s) = m
For j = 1 To 3
brr(m, j) = arr(i, j)
Next
End If
Else
If Not d.exists(s) Then
n = n + 1
d(s) = n
For j = 1 To 3
brr(n, j + 3) = arr(i, j)
Next
End If
End If
Next
End If
Next
With sh
.Range("h:h,k:k").NumberFormatLocal = "@"
.[g8].Resize(IIf(m > n, m, n), 6) = brr
End With
End Sub

复制代码

qiongmei6 · 发表于 2024-2-14 10:23

本帖最后由 qiongmei6 于 2024-2-14 10:24 编辑

谢谢ykcbf1100师傅的回答，是我没表达清楚，我这个分类汇总只是汇总工作簿中名字有工资和物贴的，因为实际工作簿中还有其他的表格。这些表格不做汇总，能否麻烦您再次帮忙看下，再次谢谢您的帮忙。也谢谢二楼的师傅x-xx-xx回答，因为某些原因我这个表格不能用公式，

ykcbf1100 · 发表于 2024-2-14 10:35

改好了。。。

fzxba · 发表于 2024-2-14 10:49

Sub test0() '参与仅供测试
Dim Conn As Object, SQL As String
Dim ar() As String, i As Long, wks As Worksheet
Set Conn = CreateObject("ADODB.Connection")
If Application.Version < 12 Then
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Else
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
End If
For Each wks In Worksheets
With wks
If InStr(.Name, "工资") > 0 Or InStr(.Name, "物贴") > 0 Then
i = i + 1
ReDim Preserve ar(1 To i)
ar(i) = "SELECT * FROM [" & .Name & "$A1:C" & .Cells(.Rows.Count, 1).End(xlUp).Row & "]"
End If
End With
Next
SQL = "SELECT 单位,身份证号,FIRST(姓名) AS 姓名 FROM (" & Join(ar, " UNION ALL ") & ") WHERE 单位[满足条件] GROUP BY 单位,身份证号"
With Worksheets("汇总")
.Range("G1").CurrentRegion.Offset(1).ClearContents
.Range("G2").CopyFromRecordset Conn.Execute(Replace(SQL, "[满足条件]", "<>'广州'"))
.Range("J2").CopyFromRecordset Conn.Execute(Replace(SQL, "[满足条件]", "='广州'"))
End With
Conn.Close
Set Conn = Nothing
Beep
End Sub

复制代码

qiongmei6 · 发表于 2024-2-14 17:13

谢谢ykcbf1100师傅的回答，因为表格需要，这个表格改成找出凡是有“工资”或者“物贴”表格中的a：c列把不属于广州集中在“汇总”表格中g2：h列（每个账号是唯一，虽然里头可能有些账号单位不同，但单位只显示其中一个单位），把属于广州的集中在“汇总”表格中j2：k列（每个账号是唯一），目前“汇总”表格中g2：h列，j2：k列就是我希望代码执行后得到的数据，本来想自己看下会不会改，看了半天不知道改哪个能达到如此效果，只好再次发上来，麻烦您再帮忙看下，再次非常感谢您的帮忙。

yynrzwh · 发表于 2024-2-14 17:53

工资及绩效汇总.zip (22.17 KB, 下载次数: 17)

zpy2 · 发表于 2024-2-15 16:59

qiongmei6 发表于 2024-2-14 17:13
谢谢ykcbf1100师傅的回答，因为表格需要，这个表格改成找出凡是有“工资”或者“物贴”表格中的a：c列把不 ...

cli_no_header;
cli_add_html~<b>非广州</b>;
select colIndex[2:4] from consolidateSheet where instr('广州,单位,-',f03)=0 group by f03,f04 ;
cli_add_html~<b>广州</b>;
select colIndex[2:4] from consolidateSheet where f03 like '广州' group by f03,f04 ;

		自动登录	找回密码
密码			免费注册

[求助] 恳请大神们帮忙看下这个分类的难题

评分

评分

评分

评分

评分

评分

评分