摘要： 单击Visual Basic工具栏上的安全按钮，在弹出的安全性对话框中可靠发行商标签项底下的‘信任对于“Visual Basic 项目”的访问’前打√。 ALT F11打开VBE编辑器...
单击Visual Basic工具栏上的安全按钮，在弹出的安全性对话框中可靠发行商标签项底下的‘信任对于“Visual Basic 项目”的访问’前打√。
ALT F11打开VBE编辑器，单击菜单工具-引用，在弹出的引用-VBAProject对话框中，选择引用Microsoft Visual Basic 6.0 Extensibility这一项。
新建一个模块，命名为:yyzx
在Sheet1(Sheet1)代码窗口，粘贴如下代码：
Sub 引用单元格字符串型代码并执行()
Dim sr, ksh, zh
On Error Resume Next
ksh = ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule.ProcBodyLine("yyrgzx", vbext_pk_Proc)
If Err.Number = 35 Then ‘判断yyrgzx过程是否存在
sr = "Sub yyrgzx()" & vbCrLf & Cells(1, 1) & vbCrLf & "End Sub"
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
.AddFromString sr
End With
Call 引用
Else
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
即可在F3单元格中显示公式计算结果
我们怎样在EXCEL中输入公式呢，看看下面的方法吧： 打开一个Excel工作簿，在工作表单元格中选择需要输入公式的单元格，如下图所示。 在编辑栏中输入公式“-D3 E3”，如下图所示。 按【Enter】键确认，即可在F3单元格中显示公式计算结果，如下图所示.
ksh = .ProcBodyLine("yyrgzx", vbext_pk_Proc)
zh = .ProcCountLines("yyrgzx", vbext_pk_Proc)
.DeleteLines ksh, zh – 1
End With
sr = "Sub yyrgzx()" & vbCrLf & Cells(1, 1) & vbCrLf & "End Sub"
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
.AddFromString sr
End With
Call 引用
End If
End Sub
Sub 引用()
Call yyrgzx
End Sub
利用窗体工具栏上的按钮，拖拉出一个按钮，命名为：引用单元格内容执行，指定：“Sheet1.引用单元格字符串型代码并执行”的宏。
6查看效果，当A1单元格内容变化时，单击引用单元格内容执行，将根据A1单元格中字符串代码执行，从而产生不同效果。
图1 Excel 2007显示重复值 第二步：删除重复值 找出重复数值后
第一步：找到重复数据 首先打开Excel，选中需要整理的数据区域，然后选择“开始”选项卡中的“条件格式”，在下拉菜单中选择“突出显示单元格规则/重复值”，在弹出的“重复值”对话框中选择一个合适的样式，以便突出显示重复值，
