麻烦高手看看，咋回事？

符合

求教高手帮忙看一下，第二个问题实在弄不明白，谢谢了！ Sub Macro8() '数据刷新                  ActiveWorkbook.RefreshAll    '刷新数据                  Dim i As Integer                  For i = 9 To 420 Step 5             Application.ScreenUpdating = False    ’关闭屏幕更新                If range("C" & i).Value = "" Then                                Rows(i).Select                      Selection.Delete Shift:=xlUp     '删除所有空行（也无公式）。（（1）删Excel表整行或数据表局部整行，那个更好?)                            End If                  Next i                  range("A6:B6").Select                  Selection.AutoFill Destination:=range("$A$6:$B$423"), Type:=xlFillDefault                 range("A6:B423").Select       '选定A6:B6单元格复制填充至A423:B423           Application.ScreenUpdating = ture     '开启屏幕更新           ActiveSheet.Calculate     '自动重算工作表     End Sub （2）用按钮控制，运行结束后怎么又自动数据刷新产生空值行    逐步运行好像没有？               本人80年代末高中生，文化程度太浅，感谢大家帮忙！ 原来发到vba程序开发版块了，版主叫我删掉数据刷新，但空行是删除刷新产生的，就叫先放一放，好长时间再就没人理会，才知道发错板块了。

lpzxhjp

上传附件看看

符合

还不会上传付件，不知行不行。 附件.zip (8.11 KB, 下载次数: 7)

2013-3-23 19:13 上传

点击文件名下载附件

符合

lpzxhjp 发表于 2013-3-23 16:34
上传附件看看

还不会上传付件，不知行不行。  附件.zip (8.11 KB, 下载次数: 0) 2013-3-23 19:13 上传下载次数: 0
麻烦你。

lpzxhjp

1. Sub Macro8() '数据刷新
   
2. '                 ActiveWorkbook.RefreshAll    '刷新数据
   
3.                  Dim i As Integer
   
4.                  For i = 3 To 420
   
5.          Application.ScreenUpdating = False    '关闭屏幕更新
   
6.                If Range("C" & i).Value = "" Then
   
7.                    Rows(i).Select
   
8.                    Selection.Delete Shift:=xlUp     '删除C列为空值行（（1）删Excel表整行或数据表局部整行，那个更好?)
   
9.                End If
   
10.                  Next i
    
11.                  Range("A6:B6").Select
    
12.                  Selection.AutoFill Destination:=Range("$A$6:$B$423"), Type:=xlFillDefault
    
13.                 Range("A6:B423").Select       '选定A6:B6单元格复制填充至A423:B423
    
14.           Application.ScreenUpdating = ture     '开启屏幕更新
    
15.           ActiveSheet.Calculate     '自动重算工作表
    
16.     End Sub

复制代码

符合

lpzxhjp 发表于 2013-3-25 08:34

谢谢你！我来试试。

符合

符合 发表于 2013-3-25 22:48
谢谢你！我来试试。

注释后，不就不能刷新数据了吗?