EXCEL宏常用的函数等

• 关闭屏幕刷新

Application.ScreenUpdating = False 

• 根据单元格内容查询所在行/列

columnIndex = ActiveSheet.UsedRange.Find("内容").Column

• 不弹出提示窗删除多余工作表

Dim Wb As WorkbookSet Wb = Workbooks.Add '新增工作簿Wb.Activatenum = Sheets.Count  '删除多余工作表For i = 2 To num    Application.DisplayAlerts = False  '关闭EXCEL的提示框    Worksheets(1).Delete    Application.DisplayAlerts = True  '取消关闭EXCEL的提示框Next

• 打印时的边距设置和单位转换

'行高hg = (240 * 2.7682) / (20 + 3)；列宽比6:34:10:10:10,共70'A4纸：宽210mm，高297mm，上下左右各20mm，净宽170mm;高257mm'行高: 1毫米＝2.7682个单位 1厘米＝27.682个单位 1个单位＝0.3612毫米'列宽： 1毫米＝0.4374个单位 1厘米＝4.374 个单位 1个单位＝2.2862毫米   With ActiveSheet.PageSetup        .LeftMargin = Application.CentimetersToPoints(2) '左边距厘米        .RightMargin = Application.CentimetersToPoints(2) '右边距        .TopMargin = Application.CentimetersToPoints(2) '上边距        .BottomMargin = Application.CentimetersToPoints(2) '下边距        .HeaderMargin = Application.CentimetersToPoints(1) '页眉        .FooterMargin = Application.CentimetersToPoints(1) '页脚            .CenterHorizontally = True 'False '水平和垂直居中         '.CenterVertically = False'水平和垂直居中    End With

• 缩小字体以适应单元格大小

Columns(2).SelectWith Selection.WrapText = True        .ShrinkToFit = FalseEnd With

• 单元格框线

Range(Cells(xinbiao + 2, 1), Cells(xinbiao + 22, 5)).SelectSelection.Borders(xlDiagonalDown).LineStyle = xlNone'上斜线无Selection.Borders(xlDiagonalUp).LineStyle = xlNone '下斜线无Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous '外边线Selection.Borders(xlEdgeTop).LineStyle = xlContinuous '外边线Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous '外边线Selection.Borders(xlEdgeRight).LineStyle = xlContinuous '外边线Selection.Borders(xlInsideVertical).LineStyle = xlContinuous '内边线Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous '内边线