如果将两个工作表里姓名和数字提取出来进行各种计算到第3个工作表中

飞天来客 · 发表于 2022-1-17 13:14

如果将两个工作表里姓名和数字提取出来进行各种计算到第3个工作表中？请写出公式并上传附件，因为我是菜鸟，还有待好好学习，急用，谢谢各位老师！

博爱风雨同舟 · 发表于 2022-1-17 13:38

=FILTERXML("<国><中>"&TEXTJOIN("</中><中>",1,Sheet1!A2:A20,Sheet2!A2:A20)&"</中></国>","国/中[not(preceding::*=.)]")
365版本

飞天来客 · 发表于 2022-1-17 14:00

博爱风雨同舟发表于 2022-1-17 13:38
=FILTERXML(""&TEXTJOIN("",1,Sheet1!A2:A20,Sheet2!A2:A20)&"","国/中[not(preceding::*=.)]")
365版本

能否给我上传一个附件呢，老师，先感谢了。

飞天来客 · 发表于 2022-1-17 14:04

博爱风雨同舟发表于 2022-1-17 13:38
=FILTERXML(""&TEXTJOIN("",1,Sheet1!A2:A20,Sheet2!A2:A20)&"","国/中[not(preceding::*=.)]")
365版本

我菜鸟，能否在我附件里填写一下上传给我呢？

飞天来客 · 发表于 2022-1-17 19:27

这个是比较难没人能解决吗？

jisijie630 · 发表于 2022-1-17 19:49

看一看，对不对？

飞天来客 · 发表于 2022-1-18 06:51

jisijie630 发表于 2022-1-17 19:49
看一看，对不对？

老师，不对呀，一共是14个人，要一一对应的进行计算，没有对应的数值提取出来或者置为0。能否再重新改一下呢？

飞天来客 · 发表于 2022-1-18 15:22

有没有老师帮忙给解决一下呢？急用！！！

chxw68 · 发表于 2022-1-19 17:34

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each ws In Worksheets(Array("sheet1", "sheet2"))
With ws
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:c" & r)
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
ReDim brr(1 To 3)
brr(1) = arr(i, 1)
Else
brr = d(arr(i, 1))
End If
brr(2) = brr(2) + arr(i, 2) * IIf(ws.Name = "Sheet1", 1, -1)
brr(3) = brr(3) + arr(i, 3)
d(arr(i, 1)) = brr
Next
End With
Next
With Worksheets("汇总")
.UsedRange.Offset(1, 0).Clear
.Range("a2").Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
End With
End Sub

复制代码

chxw68 · 发表于 2022-1-19 17:34

详见附件。

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

[求助] 如果将两个工作表里姓名和数字提取出来进行各种计算到第3个工作表中