多个条件语句判断不准确求助！

Question

本帖最后由 xgh5188 于 2013-04-11 15:30:31 编辑

Answer 1

17，30行注释掉，而代码里又用到了被注释的I变量，逻辑错乱。dim theforevertheforever = CInt(Trim(InputBox("请输入行号", "每次一行", 2)))  '指定行数
' theforever=Application.CountA(Sheet1.Columns(1)) - 1  全部比较
    K = 0
   For I = 1 To theforever 
for J=....next J
...
next I

Answer 2

兄弟能加我QQ解决下吗？跪求！谢谢了
我QQ：450478758

Answer 3

 I = CInt(Trim(InputBox("请输入行",...                                                 For I = 1 To Application.CountA(Sheet1.Columns(1)) - 1    两个I有冲突，你先把其中的一个改成别的试试。