对应宏的代码及运行示例

“对应”宏示例

此宏是将数据库中的“关系”功能引用到电子表中，从而方便用户对有关数据资料进行处理操作。

一、将要对应的标准放在A列

二、将带有对应标准条件要素的项目放在P列，其他内容紧跟其后

三、运行“对应”宏

四、“对应”宏运行后，P列直到BR列的内容都会按A列的顺序进行排列，没有的内容通过缺行或放在最后来表示。

五、“对应”宏的代码

Sub 对应() '

' Macro2 Macro

' 宏由芜湖奇瑞信息管理公司蒋亮先生于2008年原创，DEV 录制，时间: 2008-3-12 '

'================结果表生成================= '*****************连接表两部分**************** Dim x, y, z, flag As Integer Dim tmp As String For x = 2 To 65534 flag = 0

If (Cells(x, 1).Value <> \ tmp = Cells(x, 1).Value For y = x To 10000

If (Cells(y, 16).Value <> \ If tmp = Cells(y, 16).Value Then 'MsgBox (Cells(y, 16).Value)

'*****************比对表内容**************** If x <> y Then

Range(\ Application.CutCopyMode = False Selection.Cut

Range(\ Selection.Insert Shift:=xlDown End If flag = 1 End If Else

Exit For End If Next Else

Exit For End If If flag = 0 Then

Range(\ Selection.Insert Shift:=xlDown End If Next End Sub