行或列的Group化

ws.Rows("row1:row2").group

row1:Group化的开始行                row2:Group化的结束行

ws.Columns("cln1:cln2").group

cln1:Group化的开始列                  cln2:Group化的结束列

Group化行或列的收缩和展开

ExecuteExcel4Macro "SHOW.DETAIL(1,x,FALSE,y)"

FALSE:收缩           TRUE:展开

x:结束位置             y:开始位置前一行或列

最后非空行或列

ws.cells(row,column).End(xiUp / xlToLeft)

工作表内检索

dim rngInfos as Range

dim first as string

With ws.range("B:B")

　　set rngInfos = .Find(What:=string, LookIn:=xlValue,LookAt:=xlPart / xlWhole, SearchDirection:=xlNext)

if not rngInfos is nothing then

　　   first = rngInfos.Address

Do

　　　　　详细处理。。。

set rngInfos = .FindNext(rangInfos)

Loop While Not rangInfos is nothing and rngInfos.Address <> first

　　end if

end with

单元格注释追加

①Range("A1").AddComennts "Comments"

②With Range("A1")

.AddComments

.Comment.Visible = False

.Comment.Text "Comments"

End With

工作表移动

Sheets(2).select

Sheets(2).Move  Before:=Sheets(1)

Before: 向前移动             After:向后移动

单元格复制

①Range("A1").Copy

Range("B1").Paste

②Range("A1").copy  Range("B1")

单元格截取粘贴

Range("A1").Cut  Range("B1")

行或列的追加

ws.Range("M:M").Insert Shift:=xlToRight

单元格结合

ws.Range("B2:C3").Merge