从若干工作表中提取一个人的数据，并粘贴到一个新表里

希望123456

这里面有很多张表格，我现在想提取徐爱兵从2022.1到2023.4月的工资，然后复制到新表里，新表里还要有工资对应的时间。

大概思路我知道一点，就是遍历工作表，找到这个人这一行的数据，然后复制粘贴。
但是具体怎么写代码不会，有没有高手解决一下，谢谢！

limonet

叫财务去找找哈，不难找的。

希望123456

limonet 发表于 2023-5-15 11:27
叫财务去找找哈，不难找的。

财务是我好朋友，我舍不得他找呀，各位大佬，有没有解决方案呀？

希望123456

Sub 按钮1_Click()
Dim s As Worksheet

For Each s In Worksheets
    For x = 4 To 50
    If s.Cells(x, 2) = "徐爱兵" Then
       Rows(x).Select
      Selection.Copy
   Sheets("Sheet1").Select
   i = 1
    Rows("i:i").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    i = i + 1
    End If

Next
Next
End Sub

可是这个代码不对呀，还有如何把每一张表的时间复制粘贴到这个人的最后一个单元格？

cyq4896

试试这个是你想要的效果吧

希望123456

cyq4896 发表于 2023-5-15 15:04
试试这个是你想要的效果吧

   Rows("i:i").Select，我那个代码这一句不对，可是错在哪里呢，我搞不懂？

吴中泉

希望123456 发表于 2023-5-15 12:01
财务是我好朋友，我舍不得他找呀，各位大佬，有没有解决方案呀？

财务是我好朋友，我舍不得他找呀，各位大佬，有没有解决方案呀？

这句有问题:舍不得用朋友,就求助大佬?
我看了一下,又是搬运的活,唉

cyq4896

Rows(i).Select

cyq4896

希望123456 发表于 2023-5-15 15:41
Rows("i:i").Select，我那个代码这一句不对，可是错在哪里呢，我搞不懂？

Rows(i).Select

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1662588&mobile