EXCEL如何将分表中满足条件的数据提取到一个总表里？急急急

2024-11-07 20:47:28

推荐回答（2个）

回答（1）：

用VBA做了一个

Sub test()
Dim i, m, n
Application.ScreenUpdating = False
For i = 3 To 33
  m = Sheets(i).Range("AS65536").End(xlUp).Row
  If m > 5 Then
     For x = 6 To m
        If Sheets(i).Range("AS" & x) <> "" Then
            n = Sheets(2).Range("AS65536").End(xlUp).Row + 1
           arr = Sheets(i).Range("AD" & x).Resize(1, 40)
           Sheets(2).Range("AD" & n).Resize(1, 40) = arr
        End If
     Next
  End If
Next
Application.ScreenUpdating = True
End Sub

实际效果看附件吧

回答（2）：

为什么我只看到追问的消息，却没看到追问的内容