[已解决]谢谢liuguansky老师，在清空数据前怎么样加个判断？

lhj323323

        With Sht2
            Myr1 = .Range("a65536").End(xlUp).Row
            '.Range("a4:af" & Myr1).ClearContents '清除第8行向下的所有记录，但格式清除不掉
            .Range("a4:af" & Myr1).Clear      '预设的格式也被清除
          End With

本例中，当工作表sht2的第四行及以下的各行没有数据时，程序就把第一二三行的数据给清除了，

请问如何修改，才能始终保留第一二三行的数据

我的本意只是清除第四行及下面的各行数据。

[此贴子已经被作者于2010-9-16 22:44:51编辑过]

最佳答案

月排行榜 / 总排行榜

liuguansky

2010-9-16 22:01

     With Sht2
            Myr1 = .Range("a65536").End(xlUp).Row

           if Myr1>3 then

           '.Range("a4:af" & Myr1).ClearContents '清除第8行向下的所有记录，但格式清除不掉
            .Range("a4:af" & Myr1).Clear      '预设的格式也被清除

          end if
          End With

跳转到最佳答案楼层

liuguansky

     With Sht2
            Myr1 = .Range("a65536").End(xlUp).Row

           if Myr1>3 then

           '.Range("a4:af" & Myr1).ClearContents '清除第8行向下的所有记录，但格式清除不掉
            .Range("a4:af" & Myr1).Clear      '预设的格式也被清除

          end if
          End With

爱疯

如果上传一个相应附件，也许更好看明白楼主的意思。[em09]

lhj323323

QUOTE:

以下是引用爱疯在2010-9-16 22:02:00的发言：
如果上传一个相应附件，也许更好看明白楼主的意思。[em09]

爱疯老师：

这个问题应该没有附件，只是我想到了这一点，却想不出怎么解决，所以就只好凭空求助了，谢谢您。