1.打开excel表格“视图”
2.录制一个空白宏
3.编辑宏
Sub singleRowAdd()
'
' singleRowAdd 宏
' 给整个表单数据行添加指定高度
'
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(i, 1).RowHeight = Cells(i, 1).RowHeight + 10
Next
End Sub
4.执行宏
1.打开excel表格“视图”
2.录制一个空白宏
3.编辑宏
Sub singleRowAdd()
'
' singleRowAdd 宏
' 给整个表单数据行添加指定高度
'
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(i, 1).RowHeight = Cells(i, 1).RowHeight + 10
Next
End Sub
4.执行宏
http://www.mj141319.imotor.com/index.php 裏面有盟軍敢死隊2 五百多關的下載. 需要一個一個安裝.