excel中的VBA指令示例(一)

示例注释:

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(装配件统计清单!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)

未完待续。。。

相关推荐
hweiyu0014 小时前
Python办公之Excel(openpyxl)、PPT(python-pptx)、Word(python-docx)
python·powerpoint·excel
l1t21 小时前
DeepSeek辅助编写的将xlsx格式文件中sheet1.xml按需分别保留或去掉标签的程序
xml·python·excel·wps·xlsx
揭老师高效办公1 天前
在Excel和WPS表格中为多个数字同时加上相同的数值
excel·wps表格
zzc9212 天前
Wireshark导出数据包时间和长度
wireshark·excel·导出·csv·time·length·波形
Goona_2 天前
PyQt多窗口应用开发:构建完整的可二次开发用户登录注册模板
python·小程序·excel·pyqt
用户0332126663672 天前
Java 将 Excel 转换为 HTML:解锁数据在线展示的无限可能
java·excel
坐观垂钓者2 天前
使用EasyExcel 导出复杂的合并单元格
java·excel
czhc11400756633 天前
LINUX 820 shell:shift,expect
linux·运维·excel
大霞上仙3 天前
实现自学习系统,输入excel文件,能学习后进行相应回答
python·学习·excel
CodeCraft Studio3 天前
在 Python 中操作 Excel 文件的高效方案 —— Aspose.Cells for Python
python·ui·excel·报表·aspose·aspose.cells