帮忙修改一段代码

根据以下代码中的红色字体要求,帮忙添加一句代码,谢谢.
Sub DLEvtModule()
    Dim ExVBE As Object
    Set ExVBE = GetObject(, "Excel.Application")
    With ExVBE.VBE.ActiveCodePane.CodeModule   ' 套用目前模组
         rCount = .CountOfLines
     For i = rCount To 1 Step -1
         Lentemp = Len(.Lines(i, 1)) '判断是否为空行
         If Lentemp = 0 Then
         
'  这里还要添加一句判断,如何整行代码中只包含空格(不管有多少个空格),也删除该行     
               .DeleteLines i
         End If
    Next i
    End With
End Sub 纠正一个错别字,应该是:

 这里还要添加一句判断,如果整行代码中只包含空格([color=#0000FF]不管有多少个空格),也删除该行[/color] 

 Lentemp = Len(Trim(.Lines(i, 1))) '判断是否为空行

红字那边就可以省了

为什么不能结贴?



楼主你总共挂了40分，分配出去多少分了呢？ 应该是用
result=replace(.Lines(i, 1)," ","") ? 

补充：VB ,  VBA