经验直达：
- 请教EXCEL公式写入宏
- 如何录制excel宏
- 在excel中如何用VBA实现公式输入
一、请教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、选择完毕后点击【确定】 。
【如何录制excel宏 请教EXCEL公式写入宏】
8、然后点击上方工具栏的【视图】 。
9、找到宏，点击选择【录制宏】 。
10、输入宏的名称以及保存路位置后点击【确定】即可开始录制 。
11、录制结束后，点击上方宏里面的【停止录制】即可 。
12、需要使用时 ， 点击宏里的【查看宏】 。
13、选择宏然后点击【执行】即可 。
小技巧
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