excel办公技巧general(excel宏从零开始到简单应用--常用宏语句)

宏的使用无需高深的知识。以下是我整理的一些宏最常用的语法，使用简单易学，即使是新手也能够快速上手，轻松解决许多问题，其中可能有其它更好的实现方法，在这仅整理个人实践使用的，欢迎大佬指正。

#下面的语句都需要包含进一个对应的函数中：

function 宏名称(){

#WPS宏编辑器中，要使用宏，必须把所有语句都放进这里

}

# 获取当前工作簿的名称，定义变量newName接收名称

let newName = ThisWorkbook.Name;

# 切换到指定的Excel表格

Windows.Item("文件名称").Activate();

# 切换到指定的sheet表格

Sheets.Item("sheet名称").Activate();

# 获取指定单元格区域内容，定义变量result接收内容

let result = Cells.Range("A1:E7").Formula;

# 使用循环输出指定单元格区域的值

for (var i = 0; i < 7; i ) {

for (var j = 0; j < 12; j ) {

console.log(result[i][j]);

}

}

# 修改指定单元格的内容，数字可以使用变量

Range(Cells(4, 1), Cells(4, 1)).Select();

Selection.Formula = "蓝天白云";

# 修改指定单元格区域的内容

for (var i = 0; i < 7; i ) {

for (var j = 0; j < 12; j ) {

if (result[i][j] == "搜索单元格内容是否有这个，有这个就修改为下面的'蓝天白云'，从而实现修改单元格内容") {

Range(Cells(i 1, j 1), Cells(i 1, j 1)).Select();

Selection.Formula = "蓝天白云";

}

}

}

# 复制指定单元格区域的内容

Range("K8:M8").Copy(undefined);

# 粘贴复制的内容到选中区域

Range(Cells(j 1, 1), Cells(j 2, 10)).Select();

ActiveSheet.Paste(undefined, undefined);

# 合并指定单元格区域

Range(Cells(2, 1), Cells(3, 6)).Select();

(obj => {

obj.Merge(false);

obj.HorizontalAlignment = xlHAlignLeft;

})(Selection);

# 取消合并指定单元格区域

Range(Cells(2, 1), Cells(3, 6)).Select();

(obj => {

obj.UnMerge();

obj.HorizontalAlignment = xlHAlignGeneral;

})(Selection);

# 设置指定列的自定义格式，Columns列，Rows行，Range单元区域

Columns.Item("D:E").Select();

Selection.NumberFormatLocal = "yyyy-mm-dd h:mm:ss";

# 单元格加边框

Range(Cells(1, 1), Cells(2, 10)).Borders.LineStyle = xlContinuous;

Range(Cells(1, 1), Cells(2, 10)).Borders.ColorIndex = xlColorIndexAutomatic;

# 单元格修改字体、字号、加粗

Range(Cells(3, 6), Cells(4, 10)).Font.Name = "宋体";

Range(Cells(3, 6), Cells(4, 10)).Font.Size = 10;

Range(Cells(3, 6), Cells(4, 10)).Font.Bold = true;

# 插入图片，数字表示插入位置列宽、行高、图片的宽、图片的高

ActiveSheet.Shapes.AddPicture("C:/图片/狗.png", msoFalse, msoTrue, 95, 31, 55, 29);

# 删除数据，Columns列，Rows行

Columns("A:M").Delete();

# 获取最后一行的行号

let lastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row;

# 删除数据2， lastRow上面获取最后一行行号，从最后一行 2开始删除

Range("A" (lastRow 2) ":M" ActiveSheet.Rows.Count).Delete();

# 删除数据3

let NextRow = Selection.Cells(Selection.Cells.Count).Row 1;

let row = NextRow.toString() ":" (NextRow 2110).toString();

Rows(row).Delete();

# 筛选数据，可以修改数字“3”，和双引号内容栓选条件

Range("A1:L1043").AutoFilter(3, Array("XXX有限公司", "蓝色"), xlFilterValues);

# 修改行高

Rows(1).RowHeight = 41;

Rows(j 2).RowHeight = 22;

# 修改列宽

Columns("A:C").ColumnWidth = 7.48;

Columns((j 2).ColumnWidth = 5.98;

# 自定义排序，obj.Add中选定排序的列

Range(Cells(4,1),Cells(10,10)).Select();

(obj=>{

(obj=>{

obj.Clear();

obj.Add(Range(Cells(4,1),Cells(10,4)), xlSortOnValues, xlAscending, "", undefined);

})(obj.SortFields);

obj.Header = xlYes;

obj.Orientation = xlSortColumns;

obj.MatchCase = false;

obj.SortMethod = xlPinYin;

obj.SetRange(Range(Cells(4,1),Cells(10,10)));

obj.Apply();

})(ActiveSheet.Sort);

# 另存为

Application.RecentFiles.Add("D:文件1大纲.xls");

ActiveWorkbook.SaveAs("D:文件1大纲.xls", xlWorkbookNormal, undefined, undefined, undefined, undefined, xlNoChange, 1, -1, undefined, undefined);