EXCEL如何将分表中满足条件的数据提取到一个总表里?急急急
上附件http://share.weiyun.com/ed540e324495f341417f4cbfeedb805e将分表1到31分表中AS列确认人在存在数据的一行,提...
上附件http://share.weiyun.com/ed540e324495f341417f4cbfeedb805e
将分表1到31分表中AS列确认人在存在数据的一行,提取到明细汇总表中有办法吗?求大神
编辑密码一个9
套好公式的各位大神,我扣扣 三二玖陆二玖二肆八 展开
将分表1到31分表中AS列确认人在存在数据的一行,提取到明细汇总表中有办法吗?求大神
编辑密码一个9
套好公式的各位大神,我扣扣 三二玖陆二玖二肆八 展开
展开全部
用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
实际效果看附件吧
追问
能不能在代码前加一个清空数据的命令啊 点多了就跳出几百行了
追答
Sub test()
Dim s,i, m, n
Application.ScreenUpdating = False
s = Sheets(2).Range("AS65536").End(xlUp).Row
If s > 5 Then
Sheets(2).Range("AD6:BN" & s).ClearContents
End If
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询