Excel宏编程相关封装模块-第5期
1. 说明2. 代码2.1 删除行2.2 删除列2.3 隐藏列2.4 合并单元格1. 说明
该模块是根据Excel宏编程官网及录制时相关操作进行编写的,如有不足之处,望批评指正!!!
2. 代码
2.1 删除行
选择特定行进行删除
Function AssistDelDateRow(H1, H2)'选择行并删除 _ 首行_末行Rows(H1 & ":" & H2).SelectApplication.CutopyMode = FalseSelection.Delete Shift:=xlUpEnd Function
2.2 删除列
选择特定列进行删除
Function AssistDelDateCol(L1, L2)'选择列并删除 _ 首列_末列Range(Columns(L1), Columns(L2)).SelectApplication.CutCopyMode = FalseSelection.Delete Shift:=xlToLeftEnd Function
2.3 隐藏列
选择特定列进行隐藏
Function AssistHidden(L1, L2)'选择列并隐藏 _ 首列_末列Range(Columns(L1), Columns(L2)).SelectSelection.EntireColumn.Hidden = TrueEnd Function
2.4 合并单元格
按需要向右输入更改内容(逐个输入)
Function AssistMergeCells(H1, L1, H2, L2)'对选定区域进行合并单元格并居中 _ ,,首位_,,末位Range(Cells(H1, L1), Cells(H2, L2)).SelectWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.WrapText = False.Orientation = 0.AddIndent = False.IndentLevel = 0.ShrinkToFit = False.ReadingOrder = xlContext.MergeCells = FalseEnd WithSelection.MergeEnd Function
参考地址:/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习,如商业转载请联系本人,非商业转载请注明出处