网优257个Excel宏常用语句

257个Excel宏常用语句1、打开全部隐藏工作表62、循环宏73、录制宏时调用“停止录制”工具栏74、高级筛选5列不重复数据至指定表75、双击单元执行宏(工作表代码)86、双击指定区域单元执行宏(工作表代码)87、进入单元执行宏(工作表代码)88、进入指定区域单元执行宏(工作表代码)99、在多个宏中依次循环执行一个（控件按钮代码）910、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）911、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）1012、根据A1单元文本隐藏/显示按钮（控件按钮代码）1013、当前单元返回按钮名称（控件按钮代码）1014、当前单元内容返回到按钮名称（控件按钮代码）1115、奇偶页分别打印1116、自动打印多工作表第一页1117、查找A列文本循环插入分页符1118、将A列最后数据行以上的所有B列图片大小调整为所在单元大小1219、返回光标所在行数1220、在A1返回当前选中单元格数量1321、返回当前工作簿中工作表数量1322、返回光标选择区域的行数和列数1323、工作表中包含数据的最大行数1324、返回A列数据的最大行数1325、将所选区域文本插入新建文本框1326、批量插入地址批注1427、批量插入统一批注1428、以A1单元内容批量插入批注1429、不连续区域插入当前文件名和表名及地址1530、不连续区域录入当前单元地址1531、连续区域录入当前单元地址1532、返回当前单元地址1533、不连续区域录入当前日期1634、不连续区域录入当前数字日期1635、不连续区域录入当前日期和时间1636、不连续区域录入对勾1637、不连续区域录入当前文件名1638、不连续区域添加文本1639、不连续区域插入文本1740、从指定位置向下同时录入多单元指定内容1741、按aa工作表A列的内容排列工作表标签顺序1742、以A1单元文本作表名插入工作表1743、删除全部未选定工作表1844、工作表标签排序1845、定义指定工作表标签颜色1946、在目录表建立本工作簿中各表链接目录1947、建立工作表文本目录2048、查另一文件的全部表名2049、当前单元录入计算机名2050、当前单元录入计算机用户名2051、解除全部工作表保护2152、为指定工作表加指定密码保护表2153、在有密码的工作表执行代码2154、执行前需要验证密码的宏(控件按钮代码)2155、执行前需要验证密码的宏()2156、拷贝A1公式和格式到A22257、复制单元数值2258、插入数值条件格式2259、插入透明批注2260、添加文本2361、光标定位到指定工作表A列最后数据行下一单元2362、定位选定单元格式相同的全部单元格2363、按当前单元文本定位2464、按固定文本定位2465、删除包含固定文本单元的行或列2566、定位数据及区域以上的空值2567、右侧单元自动加5(工作表代码)2568、当前单元加22569、A列等于A列减B列2670、用于光标选定多区域跳转指定单元(工作表代码)2671、将A1单元录入的数据累加到B1单元（工作表代码）2672、在指定颜色区域选择单元时添加/取消（工作表代码）2673、在指定区域选择单元时添加/取消（工作表代码）2774、双击指定单元，循环录入文本（工作表代码）2775、双击指定单元，循环录入文本（工作表代码）2776、单元区域引用（工作表代码）2777、在指定区域选择单元时数值加1（工作表代码）2878、混合文本的编号2879、指定区域单元双击数据累加（工作表代码）2880、选择单元区域触发事件（工作表代码）2881、当修改指定单元内容时自动执行宏（工作表代码）2882、被指定单元内容限制执行宏2983、双击单元隐藏该行（工作表代码）2984、高亮显示行（工作表代码）2985、高亮显示行和列（工作表代码）2986、为指定工作表设置滚动范围（工作簿代码）2987、在指定单元记录打印和预览次数（工作簿代码）2988、自动数字金额转大写（工作表代码）3089、将全部工作表的A1单元作为单击按钮（工作簿代码）3090、闹钟到指定时间执行宏（工作簿代码）3091、改变Excel界面标题的宏（工作簿代码）3092、在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）3093、B列录入数据时在A列返回记录时间（工作表代码）3194、当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）3195、指定单元显示光标位置内容（工作表代码）3196、每编辑一个单元保存文件3197、指定允许编辑区域3298、解除允许编辑区域限制3299、删除指定行32100、删除A列为指定内容的行32101、删除A列非数字单元行32102、有条件删除当前行32103、选择下一行33104、选择第5行开始所有数据行33105、选择光标或选区所在行33106、选择光标或选区所在列33107、光标定位到名称指定位置33108、选择名称定义的数据区34109、选择到指定列的最后行34110、将Sheet1的A列的非空值写到Sheet2的A列34111、将名称1的数据写到名称234112、单元反选34113、调整选中对象中的文字35114、去除指定范围内的对象35115、更新透视表数据项35116、将全部工作表名称写到A列36117、为当前选定的多单元插入指定名称36118、删除全部名称36119、以指定区域为表目录补充新表36120、按A列数据批量修改表名称37121、按A列数据批量创建新表(控件按钮代码)37122、清除剪贴板37123、批量清除软回车37124、判断指定文件是否已经打开38125、当前文件另存到指定目录38126、另存指定文件名38127、以本工作表名称另存文件到当前目录38128、将本工作表单独另存文件到Excel当前默认目录38129、以活动工作表名称另存文件到Excel当前默认目录38130、另存所有工作表为工作簿39131、以指定单元内容为新文件名另存文件39132、以当前日期为新文件名另存文件39133、以当前日期和时间为新文件名另存文件39134、另存本表为TXT文件40135、引用指定位置单元内容为部分文件名另存文件40136、将A列数据排序到D列40137、将指定范围的数据排列到D列40138、光标所在行上移一行41139、加数据有效限制41140、取消数据有效限制42141、重排窗口42142、按当前单元文本选择打开指定文件单元42143、回车光标向右42144、回车光标向下43145、保护工作表时取消选定锁定单元43146、保存并退出Excel43147、隐藏/显示指定列空值行43148、深度隐藏指定工作表43149、隐藏指定工作表43150、隐藏当前工作表43151、返回当前工作表名称44152、获取上一次所进入工作簿的工作表名称44153、按光标选定颜色隐藏本列其他颜色行44154、打开工作簿自动隐藏录入表以外的其他表44155、除最左边工作表外深度隐藏所有表45156、关闭文件时自动隐藏指定工作表(ThisWorkbook)45157、打开文件时提示指定工作表是保护状态(ThisWorkbook)45158、插入10行45159、全选固定范围内小于0的单元45160、全选选定范围内小于0的单元46161、固定区域单元分类变色46162、A列半角内容变红47163、单元格录入数据时运行宏的代码47164、根据B列最后数据快速合并A列单元格的控件代码47165、在F1单元显示光标位置批注内容的代码47166、显示光标所在单元的批注的代码48167、使单元内容保持不变的工作表代码48168、有条件执行宏48169、有条件执行不同的宏48170、提示确定或取消执行宏49171、提示开始和结束49172、拷贝指定表不相邻多列数据到新位置49173、选择2至4行49174、在当前选区有条件替换数值为文本49175、自动筛选全部显示指定列50176、自动筛选第2列值为A的行50177、取消自动筛选()50178、全部显示指定表的自动筛选50179、强行合并单元50180、设置单元区域格式50181、在所有工作表的A1单元返回顺序号51182、根据A1单元内容返回C1数值51183、根据A1内容选择执行宏51184、删除A列空行51185、在A列产生不重复随机数52186、将A列数据随机排列到F列52187、取消选定区域的公式只保留值(假空转真空)52188、处理导入的显示为科学计数法样式的身份证号53189、返回指定单元的行高和列宽53190、指定行高和列宽53191、指定单元的行高和列宽与A1单元相同53191、填公式53192、建立当前工作表的副本为001表54193、在第一个表前插入多工作表54194、清除A列再插入序号54195、反方向文本(自定义函数)54196、指定选择单元区域弹出消息54197、将B列数据添加超链接到K列55198、删除B列数据的超链接55199、分离临时表A列数据的文本和超链接并整理到数据库表55200、分离临时表A列数据的文本和超链接并会同其他数据整理到数据库表55201、返回A列最后一个非空单元行号56202、返回表中第一个非空单元地址(行搜索)56203、返回表中各非空单元区域地址(行搜索)56204、返回第一个数值行号56205、返回第1行最右边非空单元的列号57206、返回连续数值单元的数量57207、统计指定范围和内容的单元数量57208、统计不同颜色的数字的和（自定义函数）57209、返回非空单元数量57210、返回A列非空单元数量58211、返回圆周率58212、定义指定单元内容为页眉/页脚58213、提示并全部清除当前选择区域58214、全部清除当前选择区域58215、清除指定区域数值58216、对指定工作表执行取消隐藏打印隐藏工作表59217、打开文件时执行指定宏(工作簿代码)59218、关闭文件时执行指定宏(工作簿代码)59219、弹出提示A1单元内容59220、延时15秒执行重排窗口宏59221、撤消工作表保护并取消密码60222、重算指定表60223、将第5行移到窗口的最上面60224、对第一张工作表的指定区域进行排序60225、显示指定工作表的打印预览60226、用单元格A1的内容作为文件名另存当前工作簿60227、禁用/启用保存和另存的代码60228、在A和B列返回当前选区的名称和公式61229、朗读朗读A列,按ESC键中止61230、朗读固定语句，请按ESC键终止61231、在M和N列的14行以下选择单元时显示调用日历控件（工作表代码）62232、添加自定义序列62233、弹出打印对话框62234、返回总页码62235、合并各工作表内容63236、合并指定目录中所有文件中相同格式工作表的数据64237、隐藏指定工作表的指定列64238、把a列不重复值取到e列65239、当前选区的行列数65240、单元格录入1位字符就跳转(工作表代码)65241、当指定日期（每月10日）打开文件执行宏65242、提示并清空单元区域66243、返回光标所在行号66244、按照当前行A列的图片名称插入图片到H列66245、当前行下插入1行66246、取消指定行或列的隐藏67247、复制单元格所在行67248、复制单元格所在列67249、新建一个工作表67250、新建一个工作簿67251、选择多表为工作组67252、在当前工作组各表中分别执行指定宏68253、复制当前工作簿的报表到临时工作簿69254、删除指定文件70255、合并A1至C1的内容写到D15单元的批注中70256、自动重算70257、手动重算70 1、打开全部隐藏工作表Sub 打开全部隐藏工作表() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Visible = True Next iEnd Sub 2、循环宏Sub 循环() AAA = Range(C2) Dim i As Long Dim times As Long times = AAAtimes代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) For i = 1 To times Call 过滤一行 If Range(完成标志) = 完成 Then Exit For 如果名为完成标志的命名单元的值等于完成,则退出循环,如果一开始就等于完成,则只执行一次循环就退出If Sheets(传送参数).Range(A & i).Text = 完成 Then Exit For 如果某列出现完成内容则退出循环 Next iEnd Sub 3、录制宏时调用“停止录制”工具栏Sub 录制宏时调用停止录制工具栏() Application.CommandBars(Stop Recording).Visible = TrueEnd Sub 4、高级筛选5列不重复数据至指定表Sub 高级筛选5列不重复数据至Sheet2() Sheets(Sheet2).Range(A1:E65536) = 清除Sheet2的A:D列 Range(A1:E65536).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _ A1), Unique:=True Sheet2.Columns(A:E).Sort Key1:=Sheet2.Range(A2), Order1:=xlAscending,Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYinEnd Sub 5、双击单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range($A$1) = 关闭 Then Exit Sub Select Case Target.Address Case $A$4 Call 宏1 Cancel = True Case $B$4 Call 宏2 Cancel = True Case $C$4 Call 宏3 Cancel = True Case $E$4 Call 宏4 Cancel = True End SelectEnd Sub 6、双击指定区域单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range($A$1) = 关闭 Then Exit Sub If Not Application.Intersect(Target, Range(A4:A9, C4:C9) Is Nothing Then Call 打开隐藏表End Sub 7、进入单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)以单元格进入代替按钮对象调用宏 If Range($A$1) = 关闭 Then Exit Sub Select Case Target.Address Case $A$5 单元地址(Target.Address),或命名单元名字(Target.Name) Call 宏1 Case $B$5 Call 宏2 Case $C$5 Call 宏3 End SelectEnd Sub 8、进入指定区域单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range($A$1) = 关闭 Then Exit Sub If Not Application.Intersect(Target, Range(A4:A9,C4:C9) Is Nothing Then Call 打开隐藏表End Sub 9、在多个宏中依次循环执行一个（控件按钮代码）Private Sub CommandButton1_Click() Static RunMacro As Integer Select Case RunMacro Case 0 宏1 RunMacro = 1 Case 1 宏2 RunMacro = 2 Case 2 宏3 RunMacro = 0 End SelectEnd Sub 10、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Private Sub CommandButton1_Click() With CommandButton1 If .Caption = 保护工作表 Then Call 保护工作表 .Caption = 取消工作表保护 Exit Sub End If If .Caption = 取消工作表保护 Then Call 取消工作表保护 .Caption = 保护工作表 Exit Sub End If End WithEnd Sub 11、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Option ExplicitPrivate Sub CommandButton1_Click() With CommandButton1 If .Caption = 宏1 Then Call 宏1 .Caption = 宏2 Exit Sub End If If .Caption = 宏2 Then Call 宏2 .Caption = 宏3 Exit Sub End If If .Caption = 宏3 Then Call 宏3 .Caption = 宏1 Exit Sub End If End WithEnd Sub 12、根据A1单元文本隐藏/显示按钮（控件按钮代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range(A1) 2 ThenCommandButton1.Visible = 1ElseCommandButton1.Visible = 0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub 13、当前单元返回按钮名称（控件按钮代码）Private Sub CommandButton1_Click()ActiveCell = CommandButton1.CaptionEnd Sub 14、当前单元内容返回到按钮名称（控件按钮代码）Private Sub CommandButton1_Click()CommandButton1.Caption = ActiveCellEnd Sub 15、奇偶页分别打印Sub 奇偶页分别打印()Dim i%, Ps%Ps = ExecuteExcel4Macro(GET.DOCUMENT(50) 总页数MsgBox 现在打印奇数页,按确定开始.For i = 1 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=iNext iMsgBox 现在打印偶数页,按确定开始.For i = 2 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=iNext iEnd Sub 16、自动打印多工作表第一页Sub 自动打印多工作表第一页()Dim sh As IntegerDim xDim yDim syDim syzx = InputBox(请输入起始工作表名字:)sy = InputBox(请输入结束工作表名字:)y = Sheets(x).Indexsyz = Sheets(sy).IndexFor sh = y To syzSheets(sh).SelectSheets(sh).PrintOut from:=1, To:=1Next shEnd Sub 17、查找A列文本循环插入分页符Sub 循环插入分页符() Selection = Workbooks(临时表).Sheets(表2).Range(A1) 调用指定地址内容Dim i As LongDim times As Longtimes = Application.WorksheetFunction.CountIf(Sheet1.Range(a:a), 分页) times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)For i = 1 To timesCall 插入分页符Next iEnd SubSub 插入分页符() Cells.Find(What:=分页, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _ .Activate ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCellEnd SubSub 取消原分页() Cells.Select ActiveSheet.ResetAllPageBreaksEnd Sub 18、将A列最后数据行以上的所有B列图片大小调整为所在单元大小Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小() Dim Pic As Picture, i& i = A65536.End(xlUp).Row For Each Pic In Sheet1.Pictures If Not Application.Intersect(Pic.TopLeftCell, Range(B1:B & i) Is Nothing Then Pic.Top = Pic.TopLeftCell.Top Pic.Left = Pic.TopLeftCell.Left Pic.Height = Pic.TopLeftCell.Height Pic.Width = Pic.TopLeftCell.Width End If NextEnd Sub 19、返回光标所在行数Sub 返回光标所在行数() x = ActiveCell.Row Range(A1) = xEnd Sub 20、在A1返回当前选中单元格数量Sub 在A1返回当前选中单元格数量() A1 = Selection.CountEnd Sub 21、返回当前工作簿中工作表数量Sub 返回当前工作簿中工作表数量() t = Application.Sheets.Count MsgBox tEnd Sub 22、返回光标选择区域的行数和列数Sub 返回光标选择区域的行数和列数() x = Selection.Rows.Count y = Selection.Columns.Count Range(A1) = x Range(A2) = yEnd Sub 23、工作表中包含数据的最大行数Sub 包含数据的最大行数() n = Cells.Find(*, , , , 1, 2).Row MsgBox nEnd Sub 24、返回A列数据的最大行数Sub 返回A列数据的最大行数() n = Range(a65536).End(xlUp).Row Range(B1) = nEnd Sub 25、将所选区域文本插入新建文本框Sub 将所选区域文本插入新建文本框() For Each rag In Selection n = n & rag.Value & Chr(10) Next ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, ActiveCell.Left + ActiveCell.Width, ActiveCell.Top + ActiveCell.Height, 250#, 100).Select Selection.Characters.Text = 问题： & n With Selection.Characters(Start:=1, Length:=3).Font .Name = 黑体 .FontStyle = 常规 .Size = 12 End WithEnd Sub 26、批量插入地址批注Sub 批量插入地址批注() On Error Resume Next Dim r As Range If Selection.Cells.Count 0 Then For Each r In Selection r.Comment.Delete r.AddComment r.Comment.Visible = False r.Comment.Text Text:=本单元格： & r.Address & of & Selection.Address Next End IfEnd Sub 27、批量插入统一批注Sub 批量插入统一批注() Dim r As Range, msg As String msg = InputBox(请输入欲批量插入的批注, 提示, 随便输点什么吧) If Selection.Cells.Count 0 Then For Each r In Selection r.AddComment r.Comment.Visible = False r.Comment.Text Text:=msg Next End IfEnd Sub 28、以A1单元内容批量插入批注Sub 以A1单元内容批量插入批注() Dim r As Range If Selection.Cells.Count 0 Then For Each r In Selection r.AddComment r.Comment.Visible = False r.Comment.Text Text:=a1.Text Next End IfEnd Sub 29、不连续区域插入当前文件名和表名及地址Sub 批量插入当前文件名和表名及地址() For Each mycell In Selection mycell.FormulaR1C1 = + ActiveWorkbook.Name + + ActiveSheet.Name + ! + mycell.Address NextEnd Sub 30、不连续区域录入当前单元地址Sub 区域录入当前单元地址() For Each mycell In Selection mycell.FormulaR1C1 = mycell.Address NextEnd Sub 31、连续区域录入当前单元地址Sub 连续区域录入当前单元地址() Selection = =ADDRESS(ROW(),COLUMN(),4,1) Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=FalseEnd Sub 32、返回当前单元地址Sub 返回当前单元地址() d = ActiveCell.Address A1 = dEnd Sub 33、不连续区域录入当前日期Sub 区域录入当前日期() Selection.FormulaR1C1 = Format(Now(), yyyy-m-d)End Sub 34、不连续区域录入当前数字日期Sub 区域录入当前数字日期() Selection.FormulaR1C1 = Format(Now(), yyyymmdd)End Sub 35、不连续区域录入当前日期和时间Sub 区域录入当前日期和时间() Selection.FormulaR1C1 = Format(Now(), yyyy-m-d h:mm:ss)End Sub 36、不连续区域录入对勾Sub 批量录入对勾() Selection.FormulaR1C1 = End Sub 37、不连续区域录入当前文件名Sub 批量录入当前文件名() Selection.FormulaR1C1 = ThisWorkbook.NameEnd Sub 38、不连续区域添加文本Sub 批量添加文本() Dim s As Range For Each s In Selection s = s & 文本内容 NextEnd Sub 39、不连续区域插入文本Sub 批量插入文本() Dim s As Range For Each s In Selection s = 文本内容 & s NextEnd Sub 40、从指定位置向下同时录入多单元指定内容Sub 从指定位置向下同时录入多单元指定内容() Dim arr arr = Array(1, 2, 13, 25, 46, 12, 0, 20)B2.Resize(8, 1) = Application.WorksheetFunction.Transpose(arr)End Sub 41、按aa工作表A列的内容排列工作表标签顺序Sub 按aa工作表A列的内容排列工作表标签顺序() Dim I%, str1$ I = 1 Sheets(aa).Select Do While Cells(I, 1).Value str1 = Trim(Cells(I, 1).Value) Sheets(str1).Select Sheets(str1).Move after:=Sheets(I) I = I + 1 Sheets(aa).Select LoopEnd Sub 42、以A1单元文本作表名插入工作表Sub 以A1单元文本作表名插入工作表() Dim nm As String nm = a1 Sheets.Add ActiveSheet.Name = nmEnd Sub 43、删除全部未选定工作表Sub 删除全部未选定工作表() Dim sht As Worksheet, n As Integer, iFlag As Boolean Dim ShtName() As String n = ActiveWindow.SelectedSheets.Count ReDim ShtName(1 To n) n = 1 For Each sht In ActiveWindow.SelectedSheets ShtName(n) = sht.Name n = n + 1 Next Application.DisplayAlerts = False For Each sht In Sheets iFlag = False For i = 1 To n - 1 If ShtName(i) = sht.Name Then iFlag = True Exit For End If Next If Not iFlag Then sht.Delete Next Application.DisplayAlerts = TrueEnd Sub 44、工作表标签排序Sub 工作表标签排序() Dim i As Long, j As Long, nums As Long, msg As Long msg = MsgBox(工作表按升序排列请选 是Y. & vbCrLf & vbCrLf & 工作表按降序排列请选 否N, vbYesNoCancel, 工作表排序) If msg = vbCancel Then Exit Sub nums = Sheets.Count If msg = vbYes Then Sort ascending For i = 1 To nums For j = i To nums If UCase(Sheets(j).Name) UCase(Sheets(i).Name) Then Sheets(j).Move Before:=Sheets(i) End If Next j Next i End IfEnd Sub 45、定义指定工作表标签颜色Sub 定义指定工作表标签颜色() Sheets(Sheet1).Tab.ColorIndex = 46End Sub 46、在目录表建立本工作簿中各表链接目录Sub 在目录表建立本工作簿中各表链接目录() Dim s%, Rng As Range On Error Resume Next Sheets(目录).Activate If Err = 0 Then Sheets(目录).UsedRange.Delete Else Sheets.Add ActiveSheet.Name = 目录 End If For i = 1 To Sheets.Count If Sheets(i).Name 目录 Then s = s + 1 Set Rng = Sheets(目录).Cells(s - 1) Mod 20) + 1, (s - 1) 20 + 1 + 1) Rng = Format(s, 0) & . & Sheets(i).Name ActiveSheet.Hyperlinks.Add Rng, # & Sheets(i).Name & !A1, ScreenTip:=Sheets(i).Name End If Next Sheets(目录).Range(b:iv).EntireColumn.ColumnWidth = 20End Sub 47、建立工作表文本目录Sub 建立工作表文本目录() Sheet