一、請(qǐng)教EXCEL公式寫入宏

都已經(jīng)用VBA了，還在單元格寫公式，感覺很別扭……不過代碼如下：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column >= 3 And Target.Column <= 5 Then
Range("F" & Target.Row).Formula = "=IF(COUNTIF(B$1:B" & Target.Row & ",B" & Target.Row & ")=COUNTIF(B:B,B" & Target.Row & "),COUNTIF(B:B,B" & Target.Row & "),"""")"
End If
End Sub

二、如何錄制excel宏

方法如下

1、打開Excel，點(diǎn)擊左上角的【文件】。

2、找到并點(diǎn)擊【選項(xiàng)】按鈕。

3、彈出窗口后，在左側(cè)點(diǎn)擊【信任中心】。

4、然后點(diǎn)擊右下角的【信任中心設(shè)置】。

5、彈出窗口，點(diǎn)擊左側(cè)的【宏設(shè)置】。

6、選擇【啟用所有宏】，并勾選【信任對(duì)VBA工程對(duì)象模型的訪問】。

7、選擇完畢后點(diǎn)擊【確定】。

8、然后點(diǎn)擊上方工具欄的【視圖】。

9、找到宏，點(diǎn)擊選擇【錄制宏】。

10、輸入宏的名稱以及保存路位置后點(diǎn)擊【確定】即可開始錄制。

11、錄制結(jié)束后，點(diǎn)擊上方宏里面的【停止錄制】即可。

12、需要使用時(shí)，點(diǎn)擊宏里的【查看宏】。

13、選擇宏然后點(diǎn)擊【執(zhí)行】即可。

小技巧

1、按alt+向下箭頭，可以根據(jù)已輸入過的內(nèi)容自動(dòng)生成下拉列表；

2、按alt+=號(hào)，可以快速插入求和公式；

3、按alt+回車鍵，可以在指定的位置強(qiáng)行換行；

4、選取整個(gè)區(qū)域，按alt+; 選取時(shí)可以跳過隱西藏域，只選取顯示的區(qū)域；

5、按alt+數(shù)字鍵可以輸入特殊符號(hào)：如 alt+41420 可以輸入 √、alt+41409 可以輸入 ×；

6、按Ctrl+D向下填充。選取一個(gè)含公式或值的單元格以及下面的N個(gè)單元格，可以填充值或公式。

三、在excel中如何用VBA實(shí)現(xiàn)公式輸入

自己錄制下宏，就知道了。
Sub pm1016()
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]>8,"""",IF(RC[-1]>1,13-RC[-2],IF(RC[-1]=1,13,"""")))"

Range("K6").Select
Selection.AutoFill Destination:=Range("K6:K100"), Type:=xlFillDefault
Range("K6:K100").Select
End Sub