2022-11-14 05:13来源：m.sf1369.com作者：宇宇
在工作表标签上击右键，查看代码。
在VBE窗口中，点“插入”，模块。将以下代码粘贴到模块代码窗格中，ALT+F8运行该宏，就行了。
附件中有样本。
Sub 数据提取()For i = 2 To Worksheets.CountSheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3]Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6]NextEnd Sub
1、打开含有宏的工作薄，点“工具/宏(M)…”，选中你的宏，点“编辑”，这样就调出了VB编辑器界面。
2、点“文件/导出文件”，在“文件名”框中输入一个文件名（也可用默认的文件名），注意扩展名为“.bas”，点“保存”。
3、将扩展名为“.bas”的文件拷贝到另一台电脑，打开EXCEL，点“工具/宏/VB编辑器”，调出VB编辑器界面，点“文件/导入文件”，找到你拷贝过来的文件，点“打开”，退出VB编辑器，你的宏已经复制过来了。
宏业清单计价软件转存Excel 格式操作如下：
①打开2014版--->报表打印。选择需要转换的单位工程，再选择需要的报表。打开报表，你发现只有清单，定额并没有打印出来，这里我们还要对报表稍作修改。
②选中该报表，右边有个“当前报表参数设置”。
组价定额：默认不打印，修改为打印，这样清单定额都有了。
③将此报表打上勾，选择右边导出为XLS，然后选择保存路径。
④打开2013版，新建工程，工程项目设置等信息就需要重新填写。
新建单项工程，选中单项工程，文件--->从文档套用项目/定额⑤选择Excel文档，打开文件，找到刚才保存的xls文件。
Option Explicit
Sub 宏1()
Dim arrA, arrD, iA, iD
'如果C列有内容，下面的两行需要修改为具体范围
arrA = Range("a1").CurrentRegion 'AB两列的有效数据
arrD = Range("d1").CurrentRegion 'DE两列的有效数据
For iD = 1 To UBound(arrD)
For iA = 1 To UBound(arrA)
If Abs(arrA(iA, 2) - arrD(iD, 2))< 0.2 Then
arrD(iA, 1) = arrA(iA, 1)
Exit For
End If
Next iA
Next iD
'结果填表
Range("d1").CurrentRegion = arrD
End Sub
操作步骤
如果大家对vba程序语言比较熟悉，可以直接在excel中编辑宏会更方便，宏代码也更简单。
执行“工具→宏→visualbasic编辑器”命令，进入“visualbasic编辑器”窗口。
在左侧“工程资源管理器”窗口中，选中保存宏的工作簿，然后执行“插入→模块”命令，插入一个新模块（模块1）。
将相关宏代码输入或复制、粘贴到右侧的编辑窗口中。
注意：宏的结构是：
sub宏名称()
相关代码
endsub
输入完成后，关闭“visualbasic编辑器”窗口返回即可。
本例我们直接编辑的宏，可以删除当前行前4列的单元格，而系统并不给出相关的提示。我们运行一下看看效果。
一.导入SQL数据 # -*- coding: utf-8 -*- import pymysql.cursors # 连接数据库，这边的host到db,都是需要自己改的。 connect = pymysql.Connect( host='localhost', port=3306, user='root', passwd='123456', db='hw', charset='utf8' ) # 获取游标 cursor = connect.cursor() print (cursor) with connect.cursor() as cursor: # 执行sql语句，进行查询，这边的select语句，可以根据自己的实际需求改动 sql = 'SELECT * FROM tuandui' cursor.execute(sql) # 获取查询结果 #fetchone() 返回单个的元组，也就是一条记录(row)，如果没有结果 则返回 None #注：在MySQL中是NULL，而在Python中则是None#fetchall() 返回多个元组，即返回多个记录(rows),如果没有结果 则返回 () result = cursor.fetchall() print(result) # 关闭连接 cursor.close() connect.close() 二.导入EXCEL数据 # -*- coding: utf-8 -*- """ Created on 2017/6/26 读取EXCEL中的数据 @author: gaodan """ import numpy as np from pandas import Series,DataFrame import pandas as pd import xlrd import openpyxl xls_file = pd.ExcelFile('gao.xls') table = xls_file.parse('Sheet1') print(table) 以上，因为平时工作中只接触到这两种导入，如果之后有新的应用，会来增加。
在excel2007环境下：
首先回答你录制宏的作用：使简单重复的动作做精妙
例如：想要在1-1000行里面每隔一行就插入一行。这时候你就可以录制一个宏，按住快捷键，就可以快速完成此项动作，而且非常准确避免人为的眼花！O(∩_∩)O哈哈哈~
具体操作如下：
录制宏
录制宏时，宏录制器会记录完成要录制的操作所需的一切步骤。记录的步骤中不包括在功能区上导航的步骤。
如果“开发工具”选项卡不可用，执行下列操作以显示此选项卡：
单击“Microsoft Office 按钮” ，然后单击“Excel 选项”。
在“常用”类别中的“使用 Excel 时采用的首选项”下，选中“在功能区中显示‘开发工具’选项卡”复选框，然后单击“确定”。
要临时将安全级别设置为启用所有宏，执行下列操作：
在“开发工具”选项卡上的“代码”组中，单击“宏安全性”。
在“宏设置”下，单击“启用所有宏(不推荐，可能会运行有潜在危险的代码)”，然后单击“确定”。
注释 为帮助防止运行有潜在危险的代码，我们建议您在使用完宏之后恢复任何禁用所有宏的设置。
在“开发工具”选项卡上的“代码”组中，单击“录制宏”。
在“宏名”框中，输入宏的名称。
注释 宏名的第一个字符必须是字母。后面的字符可以是字母、数字或下划线字符。宏名中不能有空格，下划线字符可用作单词的分隔符。如果使用的宏名还是单元格引用，则可能会出现错误信息，该信息显示宏名无效。
要指定用于运行宏的 Ctrl 组合快捷键 （快捷键：功能键或组合键，例如 F5 或 Ctrl+A，可用来执行菜单命令。存取键是另外一种组合键，例如 Alt+F，可以将焦点移至菜单、命令或控件。），请在“快捷键”框中，键入要使用的任何大写字母或小写字母。
注释 当包含该宏的工作簿打开时，该快捷键将覆盖任何对等的默认 Excel 快捷键。如需查看在 Excel 中已分配的 Ctrl 组合快捷键的列表，请参阅 Excel 快捷键和功能键。
在“将宏保存在”列表中，选择要用来存储宏的工作簿。
提示 如果要在每次使用 Excel 时都能够使用宏，请选择“个人宏工作簿”。在选择“个人宏工作簿”时，如果隐藏的个人宏工作簿 (Personal.xlsb) 还不存在，Excel 会创建一个，并将宏保存在此工作簿中。在 Microsoft Windows XP 中，此工作簿保存在 C:\Documents and Settings\用户名\Application Data\Microsoft\Excel\XLStart 文件夹中，以便在每次启动 Excel 时可以自动加载它。在 Microsoft Windows Vista 中，此工作簿保存在 C:\Users\用户名\Application Data\Microsoft\Excel\XLStart 文件夹中。如果想在另一个工作簿中自动运行个人宏工作簿中的宏，则还必须将个人宏工作簿保存在 XLStart 文件夹中，以便在启动 Excel 时同时打开这两个工作簿。
要添加宏的说明，请在“说明”框中，键入所需的文本。
单击“确定”开始录制。
执行要录制的操作。
在“开发工具”选项卡上的“代码”组中，单击“停止录制” 。
提示 您也可以单击状态栏左边的“停止录制” 。
返回页首
使用 Microsoft Visual Basic 创建宏
如果“开发工具”选项卡不可用，执行下列操作以显示此选项卡：
单击“Microsoft Office 按钮” ，然后单击“Excel 选项”。
在“常用”类别中的“使用 Excel 时采用的首选项”下，选中“在功能区中显示‘开发工具’选项卡”复选框，然后单击“确定”。
要临时将安全级别设置为启用所有宏，执行下列操作：
在“开发工具”选项卡上的“代码”组中，单击“宏安全性”。
在“宏设置”下，单击“启用所有宏(不推荐，可能会运行有潜在危险的代码)”，然后单击“确定”。
注释 为帮助防止运行有潜在危险的代码，我们建议您在使用完宏之后恢复任何禁用所有宏的设置。
在“开发工具”选项卡上的“代码”组中，单击“Visual Basic”。
如果需要，在“插入”菜单上，单击“模块”。
注释 将为工作簿中的所有工作表自动创建模块。
在模块的代码窗口中，键入或复制要使用的宏代码。
若要从模块窗口中运行宏，请按 F5。
编写完宏后，在“文件”菜单上单击“关闭并返回 Microsoft Excel”。
返回页首
复制宏的一部分以创建另一个宏
如果“开发工具”选项卡不可用，执行下列操作以显示此选项卡：
单击“Microsoft Office 按钮” ，然后单击“Excel 选项”。
在“常用”类别中的“使用 Excel 时采用的首选项”下，选中“在功能区中显示‘开发工具’选项卡”复选框，然后单击“确定”。
要临时将安全级别设置为启用所有宏，执行下列操作：
在“开发工具”选项卡上的“代码”组中，单击“宏安全性”。
在“宏设置”下，单击“启用所有宏(不推荐，可能会运行有潜在危险的代码)”，然后单击“确定”。
注释 为帮助防止运行有潜在危险的代码，我们建议您在使用完宏之后恢复任何禁用所有宏的设置。
请打开包含要复制的宏的工作簿。
在“开发工具”选项卡上的“代码”组中，单击“宏”。
在“宏名”框中，单击要复制的宏的名称。
单击“编辑”。
在 Visual Basic 编辑器的代码窗口中，选择要复制的宏所在的行。
提示 若要复制整个宏，请在选定区域中包括“Sub”和“End Sub”行。
在“编辑” 菜单中，单击“复制”。
提示 您也可以单击鼠标右键，然后单击快捷菜单上的“复制”，或者您可以按 Ctrl+C。
在代码窗口的“过程”框中，单击要在其中放置代码的模块。
在“编辑”菜单上，单击“粘贴”。
提示 您也可以单击鼠标右键，然后单击快捷菜单上的“粘贴”，或者您可以按 Ctrl+V。
提示 您无法编辑您的个人宏工作簿文件 (Personal.xlsb)，因为它是一个始终处于打开状态的隐藏工作簿。您必须首先使用“取消隐藏”命令显示该工作簿。您也可以按 Alt+F11 在 Visual Basic 编辑器中打开它。
返回页首
将宏分配给对象、图形或控件
在工作表上，用鼠标右键单击要向其分配现有宏的对象、图形或控件，然后单击快捷菜单上的“分配宏”。
在“宏名”框中，单击要分配的宏。
返回页首
删除宏
打开包含要删除的宏的工作簿。
在“开发工具”选项卡上的“代码”组中，单击“宏”。
如果“开发工具”选项卡不可用，执行下列操作以显示此选项卡：
单击“Microsoft Office 按钮” ，然后单击“Excel 选项”。
在“常用”类别中的“使用 Excel 时采用的首选项”下，选中“在功能区中显示‘开发工具’选项卡”复选框，然后单击“确定”。
在“宏的位置”列表中，选择“当前工作簿”。
在“宏名”框中，单击要删除的宏的名称。
单击“删除”。
1、 首先，打开需要操作的Excel表格，先点击菜单栏的“文件”选项卡。
2、 然后，点击最下面的“选项”按钮。
3、在弹出的对话框中点击“加载项”选项。
4、接着点击“转到”按钮。
5、最后选择好自己想要添加的宏，点击“确定”即可完成。
gse导入的宏通过form功能查看
第一个问题：
广联达图形算量，肯定是不能导入别的软件的清单计价定额的
图形算量首先是个画图的软件，你导入别的清单计价没任何用，并且也不能导。
第二个问题：
广联达清单计价软件肯定是不能打开别的软件做的文件；但是也不是没办法，你说的这个宏业清单计价，他肯定有把他自己做的清单转换成excel表格的功能（如果一个计价软件，连这个功能都没有，那就是废了，肯定没市场。）所以，首先用宏业把文件转换成excel表格，之后，就可以用广联达清单计价软件导入excel表格了，这样就完成导入了。注意导入时，选择单元格对应，编码列对应定额编号，单位咧对应单位，工程量列对应工程量，别搞错了，这样导出来也是错的。
第三个问题：
广联达钢筋抽样也有转换对应的定额功能的，你需要在广联达钢筋打开开始设置之前，选择你的省份对应的定额，就能出对应的你的省份的钢筋定额量了，这样就可以自己在广联达清单计价输入。
基本原理是这样的：首先根据报表要求，用INTOUCH的附件HISTDATA软件形成一个有规定数据的.CSV文件（逗号分隔文件，可用EXCEL打开）。这个.CSV文件是英文的，不符合一般报表的要求，只能提供数据。所以需要另设计一个空的EXCEL报表，再将.CSV文件的数据复制到报表中，形成完整的报表。通过INTOUCH可以自动产生.CSV，在通过EXCEL的宏打印报表，可以完成招呼打印和定时自动打印。如果有多个报表，需要形成多个.CSV文件和设计多个EXCEL报表。具体做法那就分成好几步了！ 生成.CSV文件， 建立EXCEL报表
