作者：乔山办公网日期：
返回目录：excel表格制作
你问的2个问题复。我分别用2个程序来告诉你。
Sub a()
Dim str$
str = VBA.InputBox("请输制入你要清除的区域！知")
If Len(str) = 0 Then
Exit Sub
Else
Range(str).ClearContents
End If
End Sub
'第2问道
Sub b()
Dim i&
For i = 1 To [a65536].End(xlUp).Row 'A列有数据的最后一行
Range("C" & i) = Range("A" & i) + Range("B" & i)
Next i
End Sub
Range("A1:A12").ClearContents
这句是清空A1：A12数据，如果需要做按钮，把这句放到一个宏里，把按钮指定该宏即可。
第一步，把文件保存为 xlsm格式
第二步知，录入宏，把下面的代码复制粘贴道，保存宏，命内名为qingkong
第三步，插入图片，右键指定上qingkong这个宏即可容。
Sub qingkong()
Range("B9,B14,B19,B24,B29,B35,B40,B45,B50,B55").ClearContents
End Sub
使用range对象可以达到你的目的
具体你可以查找相关资料或者到我zhidao的主页下载一个Demo看看就知道了
看看我的程序示例，版有什么不明白再问我
Public Sub aaa()
With ThisWorkbook.Sheets("Sheet1") '指定工作表权"sheet1"
.Range("A1:AZ300").ClearContents '清除A1～AZ300的数据
.Range("A1:A2").Merge 'A1单元格跟A2合并
.Cells(1, 1).Value = "人民" '在A1中输入数据
End With
End Sub