未初始化Range的判断

     有时候需要对已定义未初始化的range对象做判断

dim curRange as range
If curRange Is Nothing Thendebug.print("未初始化的..")
End If

 

遍历工作表方法

Chr（10）：ASCII码中的换行键，相当于vbLF。
Chr（13）：ASCII码中的回车键，相当于vbCR。

     1、使用For…Next 语句遍历工作簿中所有的工作表

Sub ShCount1()Dim c As IntegerDim i As IntegerDim s As Stringc = Worksheets.CountFor i = 1 To cs = s & Worksheets(i).Name & Chr(13)NextMsgBox "工作簿中含有以下工作表:" & Chr(13) & s
End Sub

 
     2、使用For Each…Next语句遍历工作簿中所有的工作表

Sub ShCount2()Dim Sh As WorksheetDim s As StringFor Each Sh In Worksheetss = s & Sh.Name & Chr(13)NextMsgBox "工作簿中含有以下工作表:" & Chr(13) & s
End Sub

 

工作表多行重复内容剔除

     将a列内容拷贝到b列：将重复内容删除掉后拷贝

 

Sub RunTest2()' 将b列清理掉Range("b:b").Clear' 将标题头拷贝到b列Range("a1").Copy Destination:=Range("b1")' 计算末尾行号Dim EndRowNum As IntegerEndRowNum = Range("a1").End(xlDown).Row' 由后向前循环遍历Dim Num As IntegerFor Num = 2 To EndRowNum Step 1If WorksheetFunction.CountIf(Columns(2), Cells(Num, 1).Value) < 1 ThenCells(Num, 1).Copy Destination:=Cells(Range("b65535").End(xlUp).Row + 1, 2)End IfNextEnd Sub

 

关注

笔者 - jxd