|
轉(zhuǎn)帖自 http://www./read.php/9.htm
1、 ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
'選擇當(dāng)前活動單元格所包含的范圍，上下左右無空行
2、 Cells.Select '選定當(dāng)前工作表的所有單元格
3、 Range(“A1”).ClearContents '清除活動工作表上單元格A1中的內(nèi)容
Selection.ClearContents '清除選定區(qū)域內(nèi)容
Range(“A1:D4”).Clear '徹底清除A1至D4單元格區(qū)域的內(nèi)容，包括格式
4、 Cells.Clear '清除工作表中所有單元格的內(nèi)容
5、 ActiveCell.Offset(1,0).Select '活動單元格下移一行，同理，可下移一列
6、 Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1) '偏移一列
Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1) '向上偏移一行
7、 Range(“A1”).Copy Range(“B1”) '復(fù)制單元格A1，粘貼到單元格B1中
Range(“A1:D8”).Copy Range(“F1”) '將單元格區(qū)域復(fù)制到單元格F1開始的區(qū)域中
Range(“A1:D8”).Cut Range(“F1”) '剪切單元格區(qū)域A1至D8，復(fù)制到單元格F1開始的區(qū)域中
Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) '復(fù)制包含A1的單元格區(qū)域到工作表2中以A1起始的單元格區(qū)域中
注：CurrentRegion屬性等價(jià)于定位命令，由一個(gè)矩形單元格塊組成，周圍是一個(gè)或多個(gè)空行或列
8、 ActiveWindow.RangeSelection.Value=XX '將值XX輸入到所選單元格區(qū)域中
9、 ActiveWindow.RangeSelection.Count '活動窗口中選擇的單元格數(shù)
10、 Selection.Count '當(dāng)前選中區(qū)域的單元格數(shù)
11、 GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,””) '返回單元格中超級鏈接的地址并賦值
TextColor=Range(“A1”).Font.ColorIndex '檢查單元格A1的文本顏色并返回顏色索引
Range(“A1”).Interior.ColorIndex '獲取單元格A1背景色
12、 cells.count '返回當(dāng)前工作表的單元格數(shù)
13、 Selection.Range(“E4”).Select '激活當(dāng)前活動單元格下方3行，向右4列的單元格
14、 Cells.Item(5,”C”) '引單元格C5
Cells.Item(5,3) '引單元格C5
15、 Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)
或 Range(“A1”).Offset(4,5) '指定單元格F5
16、 Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)
Rnage(“B3”).Resize(11,3) '創(chuàng)建B3：D13區(qū)域
17、 Range(“Data”).Resize(,2) '將Data區(qū)域擴(kuò)充2列
18、 Union(Range(“Data1”),Range(“Data2”)) '將Data1和Data2區(qū)域連接
19、 Intersect(Range(“Data1”),Range(“Data2”)) '返回Data1和Data2區(qū)域的交叉區(qū)域
20、 Range(“Data”).Count '單元格區(qū)域Data中的單元格數(shù)
Range(“Data”). Columns.Count '單元格區(qū)域Data中的列數(shù)
Range(“Data”). Rows.Count '單元格區(qū)域Data中的行數(shù)
21、 Selection.Columns.Count '當(dāng)前選中的單元格區(qū)域中的列數(shù)
Selection.Rows.Count '當(dāng)前選中的單元格區(qū)域中的行數(shù)
22、 Selection.Areas.Count '選中的單元格區(qū)域所包含的區(qū)域數(shù)
23、 ActiveSheet.UsedRange.Row '獲取單元格區(qū)域中使用的第一行的行號
24、 Rng.Column '獲取單元格區(qū)域Rng左上角單元格所在列編號
25、、 ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) '在活動工作表中返回所有符合條件格式設(shè)置的區(qū)域
26、 Range(“A1”).AutoFilter Field:=3,VisibleDropDown:=False '關(guān)閉由于執(zhí)行自動篩選命令產(chǎn)生的第3個(gè)字段的下拉列表
|
