[已解决]求助各位高手，vba运行出错怎么办？

风之子1978

我的程序运行错误，要求是：第一，如果附件中sheet2的第八列某一行的绝对值大于40的话，也就是H列，那么就需要把第十列，也就是J列的这一行的数据删除，同时，J列这个被删除值的前后个两个数值也需要删掉；
第二，如果第六列，每个单元格的数减去上一个单元格的数的绝对值大于0.3/0.04的话，也需要把需要把第十列，也就是J列的这一行的数据删除，同时，J列这个被删除值的前后个两个数值也需要删掉；
第三，如果第九列的单元格某个值的绝对值大于10000的话，，也需要把需要把第十列，也就是J列的这一行的数据删除，同时，J列这个被删除值的前后个两个数值也需要删掉；
                                                              
sheet2，sheet3.。。。。。。都进行相同的操作， 谢谢了！

Sub Macro1()

Dim i, j, k, x, y As Long


i = 2
j = 13
k = 1
x = 1

Do While Sheet2.Cells(k, 1) > 0


    Do While Abs(Sheet2.Cells(k + x, 8)) > 40 ''''''''''''''''''''''''''''''眼跳速度
        x = x + 1
    Loop
    If Abs(Sheet2.Cells(k + x, 6) - Sheet2.Cells(k, 6)) > 0.3 / 0.04 Then ''''''''''''''''''''''''''''''眼跳幅度
        For y = k - 2 To k + x + 2
            Sheet2.Cells(y, 10) = ""
        Next y
      ' k = k + x
    End If
        x = 1
   
   If Abs(Sheet2.Cells(k, 9)) > 10000 Then '''''''''''''''''''''''''''''眼跳加速度

  Sheet2.Cells(k, 10) = ""
  Sheet2.Cells(k + 1, 10) = ""
  
  End If

  k = k + 1
Loop

k = 1
x = 1

Do While Sheet3.Cells(k, 1) > 0


    Do While Abs(Sheet3.Cells(k + x, 8)) > 40
        x = x + 1
    Loop
    If Abs(Sheet3.Cells(k + x, 6) - Sheet3.Cells(k, 6)) > 0.3 / 0.04 Then ''''''''''''''''''''''''''''''眼跳幅度
        For y = k - 2 To k + x + 2
            Sheet3.Cells(y, 10) = ""
        Next y
      ' k = k + x
    End If
        x = 1
   
   If Abs(Sheet3.Cells(k, 9)) > 10000 Then

  Sheet3.Cells(k, 10) = ""
  Sheet3.Cells(k + 1, 10) = ""
  
  End If

  k = k + 1
Loop
End Sub

最佳答案

月排行榜 / 总排行榜

hoogle

2013-4-26 20:36

Do While Sheets("2313").Cells(k, 1) > 0  '工作表 表示方法错了


    Do While Abs(Sheet21.Cells(k + x, 8)) > 40 ''''''''''''''''''''''''''''''眼跳速度
        x = x + 1
    Loop
    If Abs(Sheet21.Cells(k + x, 6) - Sheet21.Cells(k, 6)) > 0.3 / 0.04 Then ''''''''''''''''''''''''''''''眼跳幅度
        For y = k - 2 To k + x + 2
            Sheet21.Cells(y, 10) = ""
        Next y
      ' k = k + x
    End If
        x = 1
   
   If Abs(Sheet21.Cells(k, 9)) > 10000 Then '''''''''''''''''''''''''''''眼跳加速度

  Sheet21.Cells(k, 10) = ""
  Sheet21.Cells(k + 1, 10) = ""
  
  End If

  k = k + 1
Loop

k = 1
x = 1

跳转到最佳答案楼层

hoogle

Do While Sheets("2313").Cells(k, 1) > 0  '工作表 表示方法错了


    Do While Abs(Sheet21.Cells(k + x, 8)) > 40 ''''''''''''''''''''''''''''''眼跳速度
        x = x + 1
    Loop
    If Abs(Sheet21.Cells(k + x, 6) - Sheet21.Cells(k, 6)) > 0.3 / 0.04 Then ''''''''''''''''''''''''''''''眼跳幅度
        For y = k - 2 To k + x + 2
            Sheet21.Cells(y, 10) = ""
        Next y
      ' k = k + x
    End If
        x = 1
   
   If Abs(Sheet21.Cells(k, 9)) > 10000 Then '''''''''''''''''''''''''''''眼跳加速度

  Sheet21.Cells(k, 10) = ""
  Sheet21.Cells(k + 1, 10) = ""
  
  End If

  k = k + 1
Loop

k = 1
x = 1

风之子1978

hoogle 发表于 2013-4-26 20:36
Do While Sheets("2313").Cells(k, 1) > 0  '工作表 表示方法错了

这样也不对，说是子过程或函数未定义。

hoogle

你要全部都改了，不是只有这一个地方

风之子1978

hoogle 发表于 2013-4-26 21:00
你要全部都改了，不是只有这一个地方

我是全部都改了，可还是不行啊。

风之子1978

子过程或函数未定义啊

hoogle

你再传下附件                       

风之子1978

hoogle 发表于 2013-4-26 21:21
你再传下附件

多谢了，现在貌似能运行了，刚才粘贴错了一点，谢谢了啊。