cdr做网站分辨率数据分析培训课程

示例注释：

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("$B$1:$C$10000").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("D2").Select                          ‘选择D2单元格     

    ’在 装配件统计清单 的D列中查找与 装配材料B列相同的行的第H列的数字，然后相加

    ’这个操作以D列为基准，0为D列，4为H列，-2为B列
    ActiveCell.FormulaR1C1 = "=SUMIF(装配件统计清单!C[0],RC[-2],装配件统计清单!C[4])"
    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)
        
    

未完待续。。。