Excel VBA编程求助 - 确认范围并添加公式

数据情况：
1. A,B,C三列数据，行数设为n；

执行步骤：
1. 在B和C列中插入一列空白列；
2. 确认行数n的值；
3. 在新增的空白列中的第2行单元格中添加公式“=A2&B2&D2”并刷到第n行；

谢谢！

Sub 宏1()
Dim n As Long
n = Range("a65536").End(xlUp).Row
'n = ActiveSheet.UsedRange.Rows.Count
Columns("C:C").Insert
Range("C2").Formula = "=A2&B2&D2"
Range("C2").Resize(n - 1, 1).FillDown
End Sub

新建工具栏实例 sub 新建工具栏() application.commandbars.add(name:="我的工具栏").visible = true '新建一个自定义工具栏，名为我的工具栏，并可见。 application.commandbars("我的工具栏").controls.add type:=msocontrolbutton, id:=3, before:=1 '添加保存按钮，在第一个位置 application.commandbars("我的工具栏").controls.add type:=msocontrolbutton, id:=1849, before:=2 '添加查找按钮，在第二个位置 application.commandbars("我的工具栏").controls.add type:=msocontrolbutton, id:=295, before:=3 '添加插入单元格按钮 application.commandbars("我的工具栏").controls.add type:=msocontrolbutton, id:=395, before:=4 '添加货币样式按钮 end sub

Sub abc() Dim n As Long, i As Long n = 100 'n = Range("a" & Rows.Count).End(xlUp).Row Columns("C:C").Insert Shift:=xlToRight For i = 2 To n Range("c" & i).Formula = "=A" & i & "&" & "B" & i & "&" & "D" & i Next End Sub