value：数值指定单元格的值
Resize（10，20）：选择10行20列。
Selection.EntireColumn.Copy'复制活动区域的整列
Range(Selection, Selection.End(xlDown)).Copy'选择的单元格区域和向下的数据选择全部并复制
Range('H4').PasteSpecial Paste:=xlPasteFormulas,选择性粘贴为公式。
Range('H4').PasteSpecial粘贴
Range('c1').PasteSpecial Paste:=xlPasteValues '选择性粘贴数值
Cell.EntireColumn '单元格所在的整列
Cell.EntireRow '单元格所在的整行
arr = Sheet3.Range('d1', Sheet3.[d1].End(xlDown)) 'dim arr,定义数组区域
currentregion：目标的扩展区域相当于ctrl+A，Range('b3').CurrentRegion. Select
UsedRange：工作表里所有的值的扩展区域。Sheet1.usedrange
ActiveWindow.ScrollRow = 128,配合激活事件使用，自动定位到128行
Sheet5.Range('a6:z50000').Delete '单元格区域删除，后面单元格数据向上。
Range('a6' ).EntireRow.Hidden = True '选中的单元格整行隐藏。
Range('a6' ).EntireRow.Hidden = False '选中的单元格整行显示。
Cells.Select'选择所有单元格
Selection.EntireRow.Hidden = False '取消所有隐西藏域
ActiveWindow.DisplayGridlines = False '表格拿掉网络线
ActiveSheet.UsedRange.FormatConditions.Delete '删除当前工作表中所有的条件格式
Cells.Hyperlinks.Delete '取消当前工作表所有超链接
Sheet1.ScrollArea = 'B4:H12' 限制工作表中的滚动区域,配合工作簿打开事件时使用。
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。