一、请教EXCEL公式写入宏
都已经用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，点击左上角的【文件】。
2、找到并点击【选项】按钮。
3、弹出窗口后，在左侧点击【信任中心】。
4、然后点击右下角的【信任中心设置】。
5、弹出窗口，点击左侧的【宏设置】。
6、选择【启用所有宏】，并勾选【信任对VBA工程对象模型的访问】。
7、选择完毕后点击【确定】。
8、然后点击上方工具栏的【视图】。
9、找到宏，点击选择【录制宏】。
10、输入宏的名称以及保存路位置后点击【确定】即可开始录制。
11、录制结束后，点击上方宏里面的【停止录制】即可。
12、需要使用时，点击宏里的【查看宏】。
小技巧
1、按alt+向下箭头，可以根据已输入过的内容自动生成下拉列表；
2、按alt+=号，可以快速插入求和公式；
3、按alt+回车键，可以在指定的位置强行换行；
4、选取整个区域，按alt+; 选取时可以跳过隐藏区域，只选取显示的区域；
5、按alt+数字键可以输入特殊符号：如 alt+41420 可以输入 √、alt+41409 可以输入 ×；
6、按Ctrl+D向下填充。选取一个含公式或值的单元格以及下面的N个单元格，可以填充值或公式。
三、在excel中如何用VBA实现公式输入
自己录制下宏，就知道了。
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
