办公软件excel宏获取单元格的值
1. 用宏提取excel的数据
直接复制工作簿文件，再清除数据，这是稳妥的方法。
否则就是新建工作簿，把所有工作表、模块、类模块、窗体复制过去，好像窗体复制有问题，只能导入、导出。
将扩展名为“.bas”的文件拷贝到另一台电脑，打开EXCEL，点“工具/宏/VB编辑器”；
调出VB编辑器界面，点“文件/导入文件”，找到你拷贝过来的文件，点“打开”，退出VB编辑器，你的宏已经复制过来了。
2. vba获取单元格的值
MAX函数是计算出一个数组里面的最大值。
1.MAX函数的用法：MAX(参数)，参数可以是数字或者是包含数字的名称、数组或引用；
2.例如：计算B2到B7单元格里面最大的数值，可以在B8单元格里面输入公式=MAX($B$2:$B$7)，之后就会显示出最大值了。
3. excel宏如何取单元格值
你录制开始后是否选择了单元格，如果选择了单元格，那么你再执行宏时还会出现在那一个单元格（可以打开宏代码将Range("D5").Select字样的那一行删除即可），如果你没有选择单元格，那么你再执行宏时你录制的内容就会在你当前单元格位置。
4. excel vba获取单元格的值
思路：
1、在需要读数的区域内循环2、在循环体内首先判断该单元格是否为合并单元格，是，读取合并区域的第一个单元格的值,即合并单元格的值，并作处理或保存在某单元格，跳出循环;否，直接读取单元格的值，并作处理或保存在某单元格;下面是VBA语句，定义 r,c 是增强程序的通用性，请视具体情况修改：
Sub a()Dim r As Integer '行号Dim c As Integer '列号r = 2c = 1If Cells(r, c).MergeCells Then '是否是合并单元格Debug.Print Cells(r, c).MergeArea.Cells(1, 1) '是，打印合并区域的第一个单元格的值,即合并单元格的值ElseDebug.Print Cells(r, c) '否，打印单元格的值End If'可把if语句块放在循环中End Sub
5. excel宏的功能在单元格内输入
假设B1单元格是不用的单元格，则将其作为你所说的选择开关。当B1输入1，则B4=400/C4*D4当B1输入2，则B4=450/E4*F4当B1输入3，则B4=480/H4*J4这样的话，直接在B4输入如下公式即可实现：
=IF(OR(B1="",B1<1,B1>3),"",IF(B1=1,400/C4*D4,IF(B1=2,450/E4*F4,480/H4*J4)))
6. excel宏读取excel文件
1
点开excel左上角开始，然后选择“选项”。
2
选择“快速访问工具栏”找到“宏”添加到“开发工具”。
3
回到excel选中数据，点击“开发工具—录制宏”。
4
将单元格设置，在选项中选择“百分比”。
5
然后停止录制宏，选中需要的数据，点击“宏”。然后点击“执行”。
6
最后，数据自动变成了想要的格式。
7. excel宏提取数据
一、不知道你宏代码是什么？怎么显示的符合要求的职工？是隐藏不符合的，删除不符合的，或者提取符合的然后再另存到另一个表格上？
二、如果是隐藏不符合的，那么只需全选之后右键-取消隐藏即可
三、如果是删除不合格的，若梅保存的话按返回，如果已经保存过就没有办法了
四、如果是提取出合格的后另存到另一表格，那么只要打开原表格即可 希望对你有帮助，建议把宏代码发出来才能具体确定，祝你成功！
8. excel表格里的宏
1、当我们面对一份这样的报表，我们要把背景色去掉，并且加粗、居中，并且排序。可是，老板一天要你处理一百个这样的报表，还是重复操作!怎么办?
2、其实，不用怕，我们要用到“宏”来帮助我们。首先，我们要录制新的宏，简单而言就是把我们要重复操作的步骤录制起来! 方法是：点击工具——宏——录制新的宏。点击后，你就开始进入宏的录制了，把你步骤一步步录起来!
3、如果你的步骤已经录好了，点击停止按钮，表示结束录制。
4、老板又发给我一个这样的表，该怎样使用录制好的宏呢?很简单，点击工具——宏——宏——选择你录制好的宏的名字——选择当前工作薄——执行。如果你只需要宏的一步操作，也可以点击单步执行。如果你懂编码，可以点击编辑，就不用一样录制了，直接写代码。
5、一步就完成了的效果图是这样的。
9. excel 宏 单元格赋值
Private Sub CommandButton1_Click()
Dim i As Integer
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = ThisWorkbook.Sheets("sheet2")
Set sh2 = ThisWorkbook.Sheets("sheet1")
For i = 1 To sh1.Range("A65536").End(xlUp).Row
sh2.Range("A1").Value = sh1.Cells(i, 1)
sh2.Range("B1").Value = sh1.Cells(i, 2)
sh2.Range("C1").Value = sh1.Cells(i, 3)
sh2.Range("A1:C1").PrintOut
DoEvents
Next i
Set sh1 = Nothing
Set sh2 = Nothing
End Sub
这个样子吧