excel宏程序怎么调出来

鼠标选：

菜单栏-》工具-》宏-》宏

或者

VB编辑器

快捷键：

ALT

+

F11

VBA

宏

ALT

+

SHIFT

+

F11

VBSCRIPT

宏

试试下面这个代码吧，在执行时，让数据表成为当前工作表。

代码会自动生成一个sh2工作表，并把最终结果显示在这个表中，第二次执行代码时，会删除已有sh2表，重新再生成。

Sub 匹配()

Dim a(1 To 20)

'注意：使原始数据所在表为当前表，再执行本代码

sh1 = ActiveSheetName

'如果找到sh2表，就删除

For i = 1 To SheetsCount

If Sheets(i)Name = "sh2" Then Sheets(i)Delete: Exit For

Next

ActiveWorkbookWorksheetsAddName = "sh2" '生成一个新表

x = 1

Sheets(sh1)Select

'在新表中排成一列

For i = 1 To 20

a(i) = Sheets(sh1)Cells(65536, i)End(xlUp)Row

Range(Cells(1, i), Cells(a(i), i))Copy Sheets("sh2")Cells(x, 1)

x = x + a(i)

Next

'对新表使用高级筛选去掉重复项

Sheets("sh2")Select

Range("A1:A" & x)AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("b1"), Unique:=True

'去掉第一行（只剩第一行重复）

Range("b2:b" & x)Cut Destination:=Range("b1")

'排序

Range("b1:b" & x)Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlNo

x = [b65536]End(xlUp)Row

For i = 1 To 20

For j = 1 To a(i)

For k = 1 To x

With Sheets(sh1)

If Cells(j, i) = Cells(k, 2) Then Cells(k, i + 2) = Cells(j, i)

End With

Next

Next

Next

'删除A与B列

Columns("A:B")Delete Shift:=xlToLeft

End Sub

已经调整过了

，然后就打开了Visual Basic控件工具箱选择按钮控件，将按钮控件放置到自己想要放置的位置，，选中按钮控件，点鼠标右键打开按钮控件属性，，编辑按钮的caption即可改变按钮的名字，设置成确定即改成，安扭控件就编程3、给按钮控件写代码，首先看看刚刚录制的宏的子程序是什么名字，即选择工具---宏---编辑，发现代码如下：可以发现该子程序的名字为Macro1,选择按钮控件，点击右键，选择查看代码，于是打开了EXCEL VBA开发环境这里代码的意思是按钮1单击所触发的时间，这么写就是格式规定的，private sub是子程序的前缀，并且在所有模块内都可调用，end sub 是结束符，表示程序执行到此就要结束，简单的了解一下就可以了，我们只需要在这里写上一段代码就可以了，如下call表示调用的意思，整段程序的意思也就是当按钮有被单击后就会去执行Macro1()这个子程序4、退出设计模式这位退出设计模式，设计模式和编辑模式是可以通过这个按钮转换的，设计模式只能设计，非设计模式只能运行，然后你单击按钮就可以看到效果了

以上就是关于excel宏程序怎么调出来全部的内容，包括:excel宏程序怎么调出来、EXCEL用宏程序实现匹配、在EXCEL表中，设置按钮，来执行某一个宏程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！