汇总1-12月工资在一张新表上

giat · 发表于 2024-1-28 13:22

1-12月工资表汇总在一张新表上，然后我用office365进行数据表透视只能选择一个月份的，要选择1-12月怎么操作。新手小白麻烦大神制造指导下步骤谢谢。

zpy2 · 发表于 2024-1-28 14:09

select colIndex[0:10] from consolidateSheet where regexp('^\d+$',f03)

zpy2 · 发表于 2024-1-28 14:10

zpy2 发表于 2024-1-28 14:09
select colIndex[0:10] from consolidateSheet where regexp('^\d+$',f03)

https://club.excelhome.net/forum.php?mod=viewthread&tid=1679471&page=1&mobile&_dsign=772c0d77

quqiyuan · 发表于 2024-1-28 18:26

多工作表，PQ方便

文件夹地址需要修改为你保存的位置

cztanghao · 发表于 2024-1-28 19:17

多工作表，python方便

橒♂蝣 · 发表于 2024-1-29 10:46

使用SQL SELECT

3190496160 · 发表于 2024-1-29 12:16

Sub 工资合计()
Application.ScreenUpdating = False
Dim ar As Variant
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ReDim br(1 To 50000, 1 To 7)
For Each sh In Sheets
If Right(sh.Name, 1) = "月" Then
      r = sh.Cells(Rows.Count, 2).End(xlUp).Row
      ar = sh.Range("a3:i" & r)
      For i = 2 To UBound(ar)
         If Trim(ar(i, 2)) <> "" Then
            t = d(Trim(ar(i, 2)))
            If t = "" Then
                  k = k + 1
                  d(Trim(ar(i, 2))) = k
                  t = k
                  br(k, 1) = k
                  br(k, 2) = ar(i, 2)
            End If
            For j = 5 To 9
                  br(t, j - 2) = br(t, j - 2) + ar(i, j)
            Next j
         End If
      Next i
End If
Next sh
With Sheets("工资汇总")
.UsedRange.Offset(2).Borders.LineStyle = 0
.UsedRange.Offset(2) = Empty
.[a3].Resize(k, UBound(br, 2)) = br
.[a3].Resize(k, UBound(br, 2)).Borders.LineStyle = 1
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-1-29 12:16

2023xx工资表.rar (24.64 KB, 下载次数: 18)

我的城市你来过 · 发表于 2024-1-31 15:36

WPS合并多表功能。>>>>>>>>>>然后再用数透表

yynrzwh · 发表于 2024-1-31 16:27

2023xx工资表.rar (23.62 KB, 下载次数: 6)

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

[求助] 汇总1-12月工资在一张新表上

评分

最新热点 /1