|
发表于 2014-5-25 14:07
|
显示全部楼层
本楼为最佳答案
- Private Sub CommandButton1_Click()
- Dim i As Long, j&
- Dim arr
- Application.ScreenUpdating = False '关闭屏幕刷新
- For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
- If Cells(i, "D") <> "" Then
- With Sheets(Cells(i, 1).Value)
- j = .Range("C:C").Find(Cells(i, "D")).Row
- arr = .Range(.Cells(j, "M"), .Cells(j, "Y"))
- End With
- Cells(i, "N").Resize(, UBound(arr, 2)) = arr
- End If
- Next i
- Application.ScreenUpdating = True '打开屏幕刷新
- End Sub
复制代码
9999.rar
(53.55 KB, 下载次数: 9)
|
|