excel vba常用技代码巧代码.docVIP

1. 删除重复行 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()、相关双层循环 Sub RemoveDuplicate() 删除重复行 For i = [a65536].End(xlUp).Row - 1 To 1 Step -1 按倒叙删除 For j = [a65536].End(xlUp).Row To i + 1 Step -1 If Cells(i, 1).Value = Cells(j, 1).Value Then Rows(i).Delete End If Next Next End Sub Sub RemoveItem() 删除相邻重复，但不删除隔行重复 Dim i As Long With Range(A2) 以A2为基准进行单元格偏移 Do While .Offset(i, 0) If .Offset(i, 0).Value = .Offset(i - 1, 0).Value Then .Offset(i, 0).EntireRow.Delete i = i + 1 Loop End With End Sub ActiveX控件的相关操作 ActiveX、OLEObjects、ActiveSheet.OLEObjects 遍历控件 Dim c As Object For Each c In ActiveSheet.OLEObjects If c.Name = ComboBox i Then ………….. ElseIf c.Name = CheckBox i Then ………….. End If Next c 附件： 单元格内容匹配 Exit For、.Interior.ColorIndex、互不相关双层循环 Sub Match() Dim i, j As Integer For i = 1 To [a65536].End(xlUp).Row For j = 1 To [b65536].End(xlUp).Row If Cells(i, 1).Value = Cells(j, 2).Value Then Cells(i, 1).Interior.ColorIndex = j + i Cells(j, 2).Interior.ColorIndex = j + i Exit For 仅匹配第一次 End If Next j Next i End Sub Sub UnMatch() Dim i, j As Integer For i = 1 To [F65536].End(xlUp).Row For j = 1 To [G65536].End(xlUp).Row If Cells(i, 6).Value = Cells(j, 7).Value Then Exit For 当找到有匹配的时候退出，进入下一个记录查找 Else 当找遍所有，但未找到(j=循环上限)，给出处理 If j = [G65536].End(xlUp).Row Then Cells(i, 6).Interior.ColorIndex = j + i End If End If Next j Next i 附件