Application.WorksheetFunction.Match(y, Sheet2.[a:a], 0) '引用工作表函數(shù)，如果搜索不到會(huì)報(bào)錯(cuò)，需拿掉 WorksheetFunction，加 IfError，如 Application.IfError(Application.Match(y, Sheet2.[a:a], 0), 0)

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

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

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

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

Range('C1:C10') = '=sum(A1:b1)' '在 c1:c3 單元格中輸入公式（sum（a1:b1）會(huì)相對(duì)引用

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

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

Range('f1:f3').Value=“”'相當(dāng)于清空

Range('f1:f3').Value = Range('a1:a3').Value 'F1:F3 的值引用 A1:A3 的值，☆☆☆,相當(dāng)于復(fù)制和粘貼

rng.Address '返回 rng 區(qū)域的地址

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

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

Nothing '空值

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

Workbooks().Add’新建工作簿

Workbooks().Close '關(guān)閉所有工作簿

Workbooks.Add.SaveAs 'D:\測(cè)試\工資表.xlsx' ’新建工作簿，另存為指定路徑和命名。

ThisWorkbook.Close Savechanges:= False '關(guān)閉當(dāng)前工作簿, True 為保存，F(xiàn)alse 為不保存

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

ThisWorkbook.Sheets('吊頂清單').Activate '激活當(dāng)前工作簿

Workbooks.Open 'C:\Users\tong\Desktop\123.xlsx' '打開(kāi)工作簿

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

Range('c' & x).Select'選擇區(qū)域

ActiveSheet.Paste '活動(dòng)工作表粘貼

ActiveWorkbook.Save '保存

ActiveWorkbook.Close 1 '保存及關(guān)閉，0 為不保存關(guān)閉

MsgBox ThisWorkbook.Path '當(dāng)前工作簿路徑

MsgBox ThisWorkbook.name'當(dāng)前工作簿名稱(chēng)

Name 'F:\2.xlsx' As 'F:\3.xlsx' '把 F 盤(pán)里的工作簿 2 換成工作簿 3，改名字。

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

Range('A1:A5').RowHeight = 12'范圍內(nèi)單元格行高為 12

Range('A1').Value = 12'范圍內(nèi)單元格值為 12

Cells.Select'選擇所有單元格

Cells.EntireColumn.AutoFit'所有單元格列寬自動(dòng)調(diào)整

Cells.EntireRow.AutoFit'所有單元格行高自動(dòng)調(diào)整

ActiveWorkbook.Sheets.Count '獲取活動(dòng)工作薄中工作表數(shù)

ActiveSheet.UsedRange.Rows.Count '當(dāng)前工作表中已使用的行數(shù)

Worksheets.Add’新建工作表

Sheets('Sheet1').Name = 'Sum' '將 Sheet1 命名為 Sum

Range('A1:F9').Clear '范圍內(nèi)清除(所有格式)

Range('A1:F9').Clearcontents'范圍內(nèi)清除內(nèi)容

Range('A1:F9'). Delete 區(qū)域刪除