[已解决]根据数据源按条件批量更新报表

110413234

各位老师，详情请看附件，麻烦抽时间予以指导。

最佳答案

月排行榜 / 总排行榜

风化石

2012-11-8 14:26

副本Xl0000001.rar (192.88 KB, 下载次数: 21)

2012-11-8 14:26 上传

点击文件名下载附件

Sub Macro2()
Application.ScreenUpdating = False  '禁用刷新
x = Range("B65536").End(xlUp).Row '行数
For i = 4 To x
If IsNumeric(Application.Match(Cells(i, 2), Sheets("数据源").Range("B1:B3000"), 0)) Then
    m = Application.Match(Cells(i, 2), Sheets("数据源").Range("B1:B3000"), 0)
    Sheets("数据源").Range("E" & m & ":AN" & m).Copy
    Range("E" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True
End If
Next
End Sub

跳转到最佳答案楼层

风化石

副本Xl0000001.rar (192.88 KB, 下载次数: 21)

2012-11-8 14:26 上传

点击文件名下载附件

Sub Macro2()
Application.ScreenUpdating = False  '禁用刷新
x = Range("B65536").End(xlUp).Row '行数
For i = 4 To x
If IsNumeric(Application.Match(Cells(i, 2), Sheets("数据源").Range("B1:B3000"), 0)) Then
    m = Application.Match(Cells(i, 2), Sheets("数据源").Range("B1:B3000"), 0)
    Sheets("数据源").Range("E" & m & ":AN" & m).Copy
    Range("E" & i).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True
End If
Next
End Sub