历遍工作表汇总指定行到一个表中用的是多次嵌套有没有好的代码不用每天天就要续写代码

千金易得

历遍工作表汇总指定行到一个表中用的是多次嵌套有没有好的代码不用每天天就要续写代码


抓取1-n工作表里K2-K100数据到指定工作表排列
本人的代码虽然勉强但是要每天续写代码

3190496160

Sub 汇总()
With Sheets("结果")
    r = .Cells(Rows.Count, 4).End(xlUp).Row
    y = .Cells(1, Columns.Count).End(xlToLeft).Column
    If r < 4 Or y < 6 Then MsgBox "结果表为空！": End
    ar = .Range(.Cells(1, 1), .Cells(r, y))
    For Each sh In Sheets
        If sh.Name <> "结果" Then
            rs = sh.Cells(Rows.Count, 2).End(xlUp).Row
            If rs > 2 Then
                lh = sh.Name + 5
                .Cells(4, lh).Resize(rs - 1, 1) = sh.Range("k2:k" & rs).Value
            End If
        End If
    Next sh
End With
magbox "ok!"
End Sub

3190496160

Sub 汇总()
With Sheets("结果")
    r = .Cells(Rows.Count, 4).End(xlUp).Row
    y = .Cells(1, Columns.Count).End(xlToLeft).Column
    If r < 4 Or y < 6 Then MsgBox "结果表为空！": End
    .Range(.Cells(4, 6), .Cells(r, y)) = Empty
    For Each sh In Sheets
        If sh.Name <> "结果" Then
            rs = sh.Cells(Rows.Count, 2).End(xlUp).Row
            If rs > 2 Then
                lh = sh.Name + 5
                .Cells(4, lh).Resize(rs - 1, 1) = sh.Range("k2:k" & rs).Value
            End If
        End If
    Next sh
End With
magbox "ok!"
End Sub

3190496160

需求表述不是很明确，代码仅供参考
结果表.rar (447.39 KB, 下载次数: 11)

2023-5-2 15:15 上传

点击文件名下载附件

千金易得

3190496160 发表于 2023-5-2 15:15
需求表述不是很明确，代码仅供参考

请问老师lh = sh.Name + 5是代表的啥意思是什么？要提取K行整个是在后面加行数吗？

mmwwdd

Sub test()
Dim sh As Worksheet
Dim sht As Worksheet
Set sht = Sheets("结果")
Set d = CreateObject("scripting.dictionary")
With Sheets("结果")
  r = .Cells(.Rows.Count, 5).End(3).Row
    For i = 4 To r
      d(.Cells(i, 5).Value) = i
    Next
End With
For Each sh In Sheets
    With sh
       r = .Cells(.Rows.Count, 1).End(3).Row
          For i = 2 To r
            If d.exists(.Cells(i, 2).Value) Then
               sht.Cells(d(.Cells(i, 2).Value), sh.Name + 5) = .Cells(i, 11).Value
            Else
               las = d.Count + 1
               sht.Cells(las, 4) = .Cells(i, 1)
               sht.Cells(las, 5) = .Cells(i, 2)
               sht.Cells(las, sh.Name + 5) = .Cells(i, 11)
            End If
          Next
     End With
Next
         
   
End Sub

z865593849

Sub a()
Dim i, j, sh As Worksheet
For i = 6 To Sheets(1).[f1].End(xlToRight).Column
    For Each sh In Worksheets
        If sh.Name = Sheets(1).Cells(1, i) Then
            sh.Range("k2:k100").Copy Sheets(1).Cells(4, i)
            Exit For
        End If
    Next
Next
End Sub

3190496160

千金易得 发表于 2023-5-2 16:53
请问老师lh = sh.Name + 5是代表的啥意思是什么？要提取K行整个是在后面加行数吗？

这句代码是取得列号呀，比如，工作表1，sh.name=1,而在目标表格中，工作表1的数据是要拷贝到f列的，所以要+5

3190496160

千金易得 发表于 2023-5-2 16:53
请问老师lh = sh.Name + 5是代表的啥意思是什么？要提取K行整个是在后面加行数吗？

k是列，而不是行，不知道你要表达的是什么意思

ykcbf1100

这个代码通用，你不用天天写代码了。