怎么样编写vba程序

下面是我当初在Excel中学习的方法： 1. 点菜单的工具，宏，录制宏，做一些简单的动作，如在A1输入1，在B1输入 =A1*2，将B1的字体颜色设为红色，停止录制。同时按Alt和F11进入VB界面，在左上窗口找到模块一，双击，右边窗口出来了你录制的宏的代码。懂英语最好了，一句一句就象白话文:) 2. 裘伯君说：编程只需掌握判断语句。VBA中典型的判断语句如下： if 某条件 then 一些语句 else 又一些语句 end if 简单的if语句可以是 if 某条件 then 一些语句 end if 更简单的判断语句为 if 某条件 then 一语句 举例，在你录制的代码处粘贴以下宏： Sub Test() If 5 >2 then Msgbox "I Love U!" End Sub 按F5运行此宏，你会看到一消息框，“I Love U!" 所有的 *** 作无非是一大堆逻辑判断，即If语句中再套If语句。 3. 除了判断语句，还应掌握循环语句，应为电脑擅长的就是重复工作:) 粘贴以下代码在有你录制宏的地方： Sub Test2() for i = 1 to 10 cells(i,1)=i cells(i,1).font.colorindex = i next i end sub 把宏的窗口变小些，让你能看到Excle表格的A列，在宏的窗口中重复按F8，看Excel里的变化。 For ... to ... 一些语句 Next 是经典的循环语句，刚才那个代码的意思是从1重复到10，其中Cells(i,1)是工作表中的第i行第1列，font.colorindex你录制的第一个宏里有的，就是设字体颜色。 多来QQ问问中搜搜，比如直接搜VBA，或者点我的名字看有哪些VBA的问题:)

这个很简单

Sub Macro1()

'

' Macro1 Macro

Dim i As Integer, N As Integer

N = 1 + 5 * Rnd()

Cells(1, 7).Value = N

Range("A" &N &":C" &N + 1).Select

Selection.Copy

Range("D1").Select

ActiveSheet.Paste

End Sub

Sub main()

Set dic = CreateObject("scripting.dictionary")

arr = Range("A1").CurrentRegion

For i = 1 To UBound(arr)

If dic.exists(arr(i, 2)) = False Then

dic(arr(i, 2)) = arr(i, 1)

Else

If dic(arr(i, 2)) <arr(i, 1) Then

dic.Remove arr(i, 2)

dic(arr(i, 2)) = arr(i, 1)

End If

End If

Next i

[E1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)

[D1].Resize(dic.Count, 1) = Application.Transpose(dic.items)

End Sub

---