Excel VBA常用技巧代码.docVIP

TOC\o1-1\h\z\u1. 删除重复行 1

2. ActiveX控件的相关操作 2

3. 单元格内容匹配 2

4. 单元格填充公式 3

5. 弹出打开对话框 3

6. 操作文件夹下的所有工作簿 3

7. 获取数据区域的最后一行和最后一列 4

8. 获取列的字母顺序[A~IV] 4

9. 自定义函数返回数组并填充至单元格区域 4

10. 绘制曲线图 5

11. 单元格区域拷贝 6

12. 操纵数据库（查、增、删、改） 6

13. 待定XX 7

删除重复行

[a65536].End(xlUp).Row、Offset()、相关双层循环

SubRemoveDuplicate()

删除重复行

Fori=[a65536].End(xlUp).Row-1To1Step-1按倒叙删除

Forj=[a65536].End(xlUp).RowToi+1Step-1

IfCells(i,1).Value=Cells(j,1).ValueThen

Rows(i).Delete

EndIf

Next

Next

EndSub

Su