求多重嵌套的VBA判断程序
答案:1 悬赏:40 手机版
解决时间 2021-11-26 01:05
- 提问者网友:雪舞兮
- 2021-11-25 11:53
求多重嵌套的VBA判断程序
最佳答案
- 五星知识达人网友:平生事
- 2021-11-25 12:04
Sub mytest()
Dim myrow As Integer
For i = 1 To 20
call 变化第一部分
call 变化第二部分
myrow = Range("Sheet1!AA1:AL1").Find(what:="0", lookat:=xlWhole).Column - 26
Sheets("Sheet1").Range(Cells(myrow, 5), Cells(myrow, 9)).Copy Range("Sheet2!A1").Offset(i - 1, 0)
Next i
End Sub
Dim myrow As Integer
For i = 1 To 20
call 变化第一部分
call 变化第二部分
myrow = Range("Sheet1!AA1:AL1").Find(what:="0", lookat:=xlWhole).Column - 26
Sheets("Sheet1").Range(Cells(myrow, 5), Cells(myrow, 9)).Copy Range("Sheet2!A1").Offset(i - 1, 0)
Next i
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯