批量：加行高、设置工作表名、工作表变文本、每个工作表某个单元格赋值、设置打印区域、复制工作表、

Sub 行高统一加高()

h = 1  '开始行
zh = 300 '总行
jh = h + zh '结束行（可自定义未行数）
jhg = 5   '加的行高
For i = h To jh
hh = i & ":" & i
ff = Range(hh).RowHeight
Range(hh).RowHeight = ff + jhg
Next

End Sub


Sub 行高统一加高自动()

  h = Application.InputBox(prompt:="请输入开始行号", Type:=2)
'  If h = False Or "" Then
'  Exit Sub
'  End If
  jsh = Application.InputBox(prompt:="请输入结束行号", Type:=2)
'  If jsh = fslse Or "" Then
'  Exit Sub
'  End If
  jhg = Application.InputBox(prompt:="请输入加的行高值", Type:=2)
'  If jhg = False Or "" Then
'  Exit Sub
'  End If