ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

    高级搜索
高效办公必会的Office实战技巧 魔方网表,Excel终结者,永久免费 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 免费阅读《Excel函数其实很简单Ⅱ》 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 125|回复: 9

VBA程序无法运行得到结果

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-4-21 10:07 | 显示全部楼层 |阅读模式
我写了一个为了清除某些过大数据的VBA程序,但是我的程序不能一次将同一列里面所有过大的数据一起清除,只能一个一个清除。
  1. Public Function Removechar()

  2. Dim End_Row_No As Long
  3. Dim Row_Index As Integer
  4. Dim RowDelete As Integer

  5. For End_Row_No = 2 To 50000
  6. If Cells(End_Row_No, 1).Value = "" Then Exit For
  7. Next End_Row_No

  8. For Row_Index = 2 To End_Row_No Step 1
  9.         
  10.     For RowDelete = 1 To Row_Index - 1 Step 1
  11.         If RowDelete >= Row_Index Then
  12.         Exit For
  13.         End If
  14.         If Cells(RowDelete, 2).Value = Cells(Row_Index, 2).Value Then
  15.             Rows(RowDelete).Delete
  16.             RowDelete = RowDelete - 1
  17.             If Row_Index > 4 Then
  18.             Row_Index = Row_Index - 1
  19.             End If
  20.         End If
  21.     Next RowDelete
  22.     If Cells(Row_Index, 2).Value = "" Or Cells(Row_Index, 2).Value = Empty Then Exit For
  23. Next Row_Index

  24. For i = 2 To 10000
  25.     If IsEmpty(ActiveSheet.Cells(i, 1)) Then
  26.         RowQty = i
  27.         Exit For
  28.    
  29.     End If
  30. Next i
  31. RowQty = RowQty - 1

  32. For j = 2 To RowQty
  33.     For k = 4 To 18
  34.         SpacePos = InStr(1, ActiveSheet.Cells(j, k), " ", vbTextCompare)
  35.         If SpacePos = 0 Then
  36.             If (Len(ActiveSheet.Cells(j, k)) > 0) Then
  37.                 If (Asc(ActiveSheet.Cells(j, k)) < 65) Then
  38.                 ActiveSheet.Cells(j, k) = Val(ActiveSheet.Cells(j, k))
  39.                 End If
  40.             End If
  41.         Else
  42.             ActiveSheet.Cells(j, k) = Val(Left(ActiveSheet.Cells(j, k), SpacePos - 1))
  43.             
  44.         End If
  45.     Next k
  46. Next j

  47. End Function


  48. Sub Correct_Number()

  49. Application.ScreenUpdating = False

  50. Set sht1 = ThisWorkbook.Worksheets("TEC_PLUS")
  51. Set sht2 = ThisWorkbook.Worksheets("SiB_htr_res")
  52. Set sht3 = ThisWorkbook.Worksheets("Thermistor_res")
  53. Dim success As Boolean

  54. sht1.Activate
  55. success = Removechar()
  56. sht2.Activate
  57. success = Removechar()
  58. sht3.Activate
  59. success = Removechar()

  60. Dim m As Integer

  61. For m = 2 To 10000
  62.     If sht1.Cells(m, 4).Value > 5 Then
  63.     sht1.Rows(m).Delete
  64.     End If
  65. Next
  66. '-------------------
  67. Dim n As Integer

  68. For n = 2 To 10000
  69.     If sht2.Cells(n, 5).Value > 220 Then
  70.     sht2.Rows(n).Delete
  71.     End If
  72. Next
  73. '-------------------
  74. Dim o As Integer

  75. For o = 2 To 10000
  76.     If sht3.Cells(o, 4).Value > 120000 Then
  77.     sht3.Rows(o).Delete
  78.     End If
  79. Next
  80. '-------------------
  81. ThisWorkbook.Charts("X3GG383CE").Activate

  82. Application.ScreenUpdating = True

  83. End Sub

复制代码


TA的精华主题

TA的得分主题

发表于 2017-4-21 10:20 | 显示全部楼层
function里不能删除行

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-21 10:53 | 显示全部楼层
cflood 发表于 2017-4-21 10:20
function里不能删除行

但是我将那一段函数都注释了还是没用啊,一样的效果

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-21 11:36 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-21 13:03 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-4-21 13:30 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-4-21 13:37 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-21 13:43 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-4-21 13:46 | 显示全部楼层
lsdongjh 发表于 2017-4-21 13:37
楼上正解,删除必须倒序!!
For n = 10000 To 2 step -1

能解释一下顺着删和倒着删的区别么

TA的精华主题

TA的得分主题

发表于 2017-4-21 16:41 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

手机版|Archiver|关于我们|联系我们|ExcelHome   

GMT+8, 2017-6-27 03:09 , Processed in 0.156400 second(s), 22 queries , Gzip On, Memcache On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表