Excel-VBA代码，常用语句（4）

Application.WorksheetFunction.Match(y, Sheet2.[a:a], 0) '引用工作表函数，如果搜索不到会报错，需拿掉 WorksheetFunction，加 IfError，如 Application.IfError(Application.Match(y, Sheet2.[a:a], 0), 0)

Range('e1') =
Application.WorksheetFunction.CountIf(Range('b3:b1000'), '*10*')'引用工作表函数

x = Application.IfError(Application.Match(y, Sheet2.[a:a], 0), 0) '引用工作表函数

x =
Application.WorksheetFunction.CountA(Range('c5:c100000'))'引用工作表函数

Range('e1') = '=CountIf(b3:b1000, ''10*'')''输入公式（公式中有''的，再加''）

Range('C1:C10') = '=sum(A1:b1)' '在 c1:c3 单元格中输入公式（sum（a1:b1）会相对引用

Range('e1') = '=sumif(a2:a6,''b'',b2:b6)'，在单元格输入公式

Range('H4:H' & x) = '=IFERROR(MID(G4,1,FIND(''\'',G4)-1),G4)'，在单元格输入公式

Range('f1:f3').Value=“”'相当于清空

Range('f1:f3').Value = Range('a1:a3').Value 'F1:F3 的值引用 A1:A3 的值，☆☆☆,相当于复制和粘贴

rng.Address '返回 rng 区域的地址

Cell.EntireColumn '单元格所在的整列

Cell.EntireRow '单元格所在的整行

Nothing '空值

Range('A1:A5').Replace '通州', '南通' ’ “通州”字符串替换成“南通”字符串

Workbooks().Add’新建工作簿

Workbooks().Close '关闭所有工作簿

Workbooks.Add.SaveAs 'D:\测试\工资表.xlsx' ’新建工作簿，另存为指定路径和命名。

ThisWorkbook.Close Savechanges:= False '关闭当前工作簿, True 为保存，False 为不保存

Workbooks('MyBook.xls').Activate'激活工作簿

ThisWorkbook.Sheets('吊顶清单').Activate '激活当前工作簿

Workbooks.Open 'C:\Users\tong\Desktop\123.xlsx' '打开工作簿

Workbooks('123.xlsx').Sheets('2').Activate '激活工作簿中的工作表

Range('c' & x).Select'选择区域

ActiveSheet.Paste '活动工作表粘贴

ActiveWorkbook.Save '保存

ActiveWorkbook.Close 1 '保存及关闭，0 为不保存关闭

MsgBox ThisWorkbook.Path '当前工作簿路径

MsgBox ThisWorkbook.name'当前工作簿名称

Name 'F:\2.xlsx' As 'F:\3.xlsx' '把 F 盘里的工作簿 2 换成工作簿 3，改名字。

Kill Cells(1, 1) & '*.*' '删除文件夹里所有文件

Range('A1:A5').RowHeight = 12'范围内单元格行高为 12

Range('A1').Value = 12'范围内单元格值为 12

Cells.Select'选择所有单元格

Cells.EntireColumn.AutoFit'所有单元格列宽自动调整

Cells.EntireRow.AutoFit'所有单元格行高自动调整

ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数

ActiveSheet.UsedRange.Rows.Count '当前工作表中已使用的行数

Worksheets.Add’新建工作表

Sheets('Sheet1').Name = 'Sum' '将 Sheet1 命名为 Sum

Range('A1:F9').Clear '范围内清除(所有格式)

Range('A1:F9').Clearcontents'范围内清除内容

Range('A1:F9'). Delete 区域删除