<em>excel</em>中编写宏的步骤

Sub AA()
Dim ran As Range
 Range("A1") = 1
 Range("A1").AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries
 For Each ran In Range("B1:B10")
    ran = Rnd
 Next
 For Each ran In Range("C1:C10")
    ran = Int(Rnd * 10 + 1)
 Next
 Cells(11, 3) = 0
 For i = 1 To 10
   If Cells(11, 3) < Cells(i, 3) Then Cells(11, 3) = Cells(i, 3)
   Next
End Sub

1、首先打开excel，点击开发工具单击选择插入，之后在下拉知的菜单中的表单中的控件里面选择”按钮“的图标。

2、然后再弹出的一个对话框道“指定宏”的时候，单机新建的按钮。

3、这样就进入到Excel的VBA程序宏的编辑界面，进入之后写一个演示宏，专然后点击保存。

4、这个时候程序就属已经写好了，当点击excel中的按钮的时候会弹出一个hello world的消息提示框。

Sub test()
m = Range("a1").End(xlDown).Row
n = Range("b1").End(xlDown).Row
i = m * n
Range("c1:C" & i).FormulaR1C1 = _
"=OFFSET(R1C1,INT((ROW()-1)/20),)&OFFSET(R1C2,MOD(ROW()-1,20),)"
End Sub

Sub 宏1()
    [D1] = Time    '记录开始时间
    Columns("A:A").Select    '选择抄A列
    Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1"), Unique:=True    '将不重复袭的内容放zdB1开始
    Range("C1").Select    '选择C1
    ActiveCell.FormulaR1C1 = "=COUNTIF(C[-2],RC[-1])"    '以B1对A列计数
    Range("C1").Select    '选择C1
    Selection.AutoFill Destination:=Range("C:C"), Type:=xlFillDefault    '
    Range("C:C").Select    '粘贴到C列
    [D1] = Time - [D1]    '当前时间-开始时间
End Sub