[已解决]VBA清除含有合并单元格的内容

farer69

有一张表，Sheet1

其中 A1:Q1 为合并单元格

如何用VBA清除A1:Q81的内容

[此贴子已经被作者于2007-12-10 14:12:18编辑过]

extyg

range("a1").clearcontents

daley

Range("A1:Q81").ClearContents

farer69

没有解决啊[em06]

[此贴子已经被作者于2007-12-10 13:29:11编辑过]

daley

QUOTE:

以下是引用farer69在2007-12-10 13:27:16的发言：

没有解决啊[em06]

请上传附件!!

farer69

5NieIo1b.rar (7.18 KB, 下载次数: 96)

2007-12-10 14:00 上传

点击文件名下载附件
[求助]【仍未解决】VBA清除含有合并单元格的内容

[此贴子已经被作者于2007-12-10 14:04:35编辑过]

daley

晕倒,你的第一行合并区域是A1:T1,肯定不行了。

farer69

不好意思，我没看清，表格设计的很怪。

[em04]

Sheet1.Select
    Range("A1:T1").Select
    Selection.UnMerge
    Range("B3:Q81").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "3000年1月 统计表"
    With ActiveCell.Characters(Start:=1, Length:=11).Font
        .Name = "宋体"
        .FontStyle = "加粗"
        .Size = 13.5
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select

解决了。

daley

Private Sub Workbook_Open()
    Sheets("Sheet1").Activate
    Range("A1:T1,A2:Q81").ClearContents
End Sub

如果将A1：T1重新合并为A1：Q1，则：

Private Sub Workbook_Open()
    Sheets("Sheet1").Activate
    Range("A1:Q81").ClearContents
End Sub

farer69

非常感谢