示例注释：
Sub 宏1() 'sub是宏开头，宏1是宏的名称，自定义，在按钮中可指定用某个宏
' '后面是注释
Sheets("装配材料").Select '选择表 装配材料
Cells.Select '选择所有单元格cell
Selection.ClearContents '选择的单元格清除内容，不含格式
Sheets("装配件统计清单").Select
Columns("C:E").Select '选择C到E列
Selection.Copy '复制C到E列到剪贴板
Sheets("装配材料").Select '选择装配材料表，在选择下个表前，所有操作都针对这个表
Columns("A:C").Select '选择A到C列对象
ActiveSheet.Paste '复制单元格到A-C列
Range("B1:B3").Select '选择B1到B3单元格
Range("B3").Activate 'B3单元格激活状态
Application.CutCopyMode = False '取消复制模式
Selection.EntireRow.Delete 'B1到B3所在的行删除，即前3行
Range("B1").Select '选择B1单元格
'B1到D1000列以B列为对象，删除重复的行，不含表头
ActiveSheet.Range("B1:C10000").RemoveDuplicates Columns:=1, Header:=xlYes
Range("D2").Select '选择D2单元格
'在 装配件统计清单 的D列中查找与 装配材料B列相同的行的第H列的数字，然后相加
'这个操作以D列为基准，0为D列，4为H列，-2为B列
ActiveCell.FormulaR1C1 = "=SUMIF(装配件统计清单!C0,RC-2,装配件统计清单!C4)"
With Selection.Interior '对当前选择的D2单元格内部设置
.Pattern = xlSolid '单元格为实心填充
.PatternColorIndex = xlAutomatic '使用excel默认颜色
.Color = 65535 '对应黄色
.TintAndShade = 0 '无特殊色调明暗
.PatternTintAndShade = 0 '无特殊阴影
End With
'使用自动填充格式，范围是从D2列到A列有数据的最后一行
Selection.AutoFill Destination:=Range("D2:D" & a65536.End(3).Row)
未完待续。。。