使用range对象可以达到你的目的 具体你可以查找相关资料或者到我的主页下载一个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