Excel 2007 VBA 示例
2010-02-26 14:55
190 查看
Excel2007 中 视图->宏->查看宏
添加一个新宏名字,编辑然后,输入宏内容
功能介绍:把sheet1中的数据按行列匹配填入到sheet2中
Sub Testwork()
Dim answer As String
Dim cellName As String
For i = 2 To 281 Step 1
For j = 1 To 63 Step 1
If Worksheets("Sheet2").Range("A" & j) = Worksheets("Sheet1").Range("B" & i) And Worksheets("Sheet2").Range("B1") = Worksheets("Sheet1").Range("A" & i) Then
cellName = "C" & i
answer = Worksheets("Sheet1").Range(cellName)
Worksheets("Sheet2").Range("B" & j) = answer
End If
'MsgBox answer
Next j
Next i
End Sub
添加一个新宏名字,编辑然后,输入宏内容
功能介绍:把sheet1中的数据按行列匹配填入到sheet2中
Sub Testwork()
Dim answer As String
Dim cellName As String
For i = 2 To 281 Step 1
For j = 1 To 63 Step 1
If Worksheets("Sheet2").Range("A" & j) = Worksheets("Sheet1").Range("B" & i) And Worksheets("Sheet2").Range("B1") = Worksheets("Sheet1").Range("A" & i) Then
cellName = "C" & i
answer = Worksheets("Sheet1").Range(cellName)
Worksheets("Sheet2").Range("B" & j) = answer
End If
'MsgBox answer
Next j
Next i
End Sub
相关文章推荐
- Excel VBA 2003和 Excel VBA 2007不兼容的一个例子: 文件搜索
- 写了一段VBA代码后, Excel每次保存时都弹出警告:”此文档中包含宏、Activex控件、XML扩展包信息“(office 2007)
- VBA中操作Excel的部分方法代码示例
- 使用 Excel 2003 工作表的 VBA 示例
- poi 操作excel 2007 示例
- PHPExcel导出2003和2007的excel文档功能示例
- Excel 2007 Power Programming with VBA
- Excel 2007 VBA Programming For Dummies
- 细品RibbonX(57):示例—在Excel 2007的功能区中添加中文选项卡和控件
- VBA 开发前 excel环境设置office 2007
- 利用VBA处理Excel 2007中的表
- 使用 Excel 2003 工作表的 VBA 示例
- Excel VBA Range对象基本操作应用示例(转贴,实用参考)
- http://fracta.net/fracta/index.php/forum/2-excel-vba-forum/19-customizing-excel-2007-ribbon-menu-by-
- Excel 2007及其VBA
- JAVA用POI读取和创建2003和2007版本Excel完美示例
- Access 2007/2010 VBA查询结果导出为Excel 2007文件
- vba excel 2007 自定义函数 不能运行 #name 解决办法
- JAVA用POI读取和创建2003和2007版本Excel完美示例
- 使用 Excel 2003 工作表的 VBA 示例