求助

vba至于吗这么难 · 发表于 2019-9-8 11:34

各位老师，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

vba至于吗这么难 · 发表于 2019-9-8 11:35

附件如下~~~~~

vba至于吗这么难 · 发表于 2019-9-8 11:36

vba至于吗这么难发表于 2019-9-8 11:35
附件如下~~~~~

感谢各位老师啊~~~

蓝桥玄霜 · 发表于 2019-9-8 11:47

End If
If p > 3 Then
改为：
ElseIf p > 3 Then

鄂龙蒙 · 发表于 2019-9-8 11:48

楼主条件不对吧？循环5行3列？！

vba至于吗这么难 · 发表于 2019-9-8 12:46

本帖最后由 vba至于吗这么难于 2019-9-8 18:04 编辑

鄂龙蒙发表于 2019-9-8 11:48
楼主条件不对吧？循环5行3列？！

错了，循环6行4列，，

vba至于吗这么难 · 发表于 2019-9-8 12:48

蓝桥玄霜发表于 2019-9-8 11:47
End If
If p > 3 Then
改为：

不行啊老师，运行提示编译错误参数不可选

vba至于吗这么难 · 发表于 2019-9-8 15:31

请教各位老师！真的很急啊

vba至于吗这么难 · 发表于 2019-9-8 18:29

改成这样了还是不行
......
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
      ElseIf p > 3 Then
         Sheet3.Range(Sheet3.Cells(i, k), Sheet3.Cells(i + 5, k + 3)).Copy Sheet4.Range("a1")
         Call mgbR
         Call clear1 '运行完mgbR后自动清除Sheet4所有单元格
      End If
Next
Next

Sheets("Sheet3").Select

End Sub

		自动登录	找回密码
密码			免费注册

求助

最新热点 /1