|
各位老师,sheet3里有若干数据,如果Range(Cells(i, k), Cells(i + 5, k + 3)区域内(即任意5行三列)非空单元格>=3,则把此数据复制到sheet4中,循环到i=152,k=171这个区域,我一运行就没动作了,求救~~
Sub scu()
Sheets("Sheet3").Select
Dim i, k, p
For k = 1 To 152
For i = 1 To 171
p = Application.WorksheetFunction.CountA.Range(Cells(i, k), Cells(i + 5, k + 3))
If p <= 3 Then
Do
i = i + 1:
Loop Until p > 3
End If
If p > 3 Then
Range(Cells(i, k), Cells(i + 5, k + 3)).Copy Sheet4.Cells(1, 1)
Call mgbR
Call clear1 '运行完mgbR后自动清除Sheet4所有单元格
End If
Next
Next
Sheets("Sheet3").Select
End Sub
|
|