查找全部加粗倾斜单元格后清除内容？

wangjwpx

查找工作表中单元格格式是加粗倾斜的全部单元格，然后清除内容。我手动查找：1查找，2选项，3格式，4字体，5加粗倾斜，6确定，7查找全部，8 全选ctrl+a，9在选定的单元格上右击清除内容。按照手动操作的步骤录制宏，界面没有反应，请老师们赐教.其它工作表能用该宏
代码：

Sub 宏1()
'
' 宏1 宏
'

'
    With Application.FindFormat.Font
        .FontStyle = "加粗倾斜"
        .Subscript = False
        .TintAndShade = 0
    End With
    Selection.ClearContents
End Sub

liulang0808

Sub Macro5()

    Columns("B:B").Select

    With Application.FindFormat.Font
        .FontStyle = "加粗 倾斜"
        .Superscript = False
        .Subscript = False
        .TintAndShade = 0
    End With
    Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
End Sub

录制的宏，对B列进行替换操作

wangjwpx

liulang0808 发表于 2019-9-30 07:35
Sub Macro5()

    Columns("B:B").Select

老师，执行代码后B列内容全部清除了，其他加粗单元格没有清除

moonlit123

wangjwpx 发表于 2019-9-30 23:10
老师，执行代码后B列内容全部清除了，其他加粗单元格没有清除

版主是给你一个例子（以B列为例子） 录制宏的代码。

如果你想清除其他地方的单元格，
你只要举一反三，把B列的这句话改成你想要的 范围就行了。

我也举个例子，
比如你想清除 A1 到R100范围的单元格
range("A1:R100").Select
'(以下查找替换代码略）

wangjwpx

moonlit123 发表于 2019-9-30 23:44
版主是给你一个例子（以B列为例子） 录制宏的代码。

如果你想清除其他地方的单元格，

b:b列的范围改为其它范围c5:i19.定义和对象定义错误。改为Range可以了，谢谢

wangjwpx

moonlit123 发表于 2019-9-30 23:44
版主是给你一个例子（以B列为例子） 录制宏的代码。

如果你想清除其他地方的单元格，

查找范围为三个不连续区域 c9:i23,   o6:aj15,       b580:b593怎么写

moonlit123

wangjwpx 发表于 2019-10-1 16:34
查找范围为三个不连续区域 c9:i23,   o6:aj15,       b580:b593怎么写

...
如果你只是 查找加粗斜体单元格后清除内容。

你分开来写3次范围不就好了？
range("范围1").Select
执行代码.
range("范围2").Select
执行代码.
range("范围3").Select
执行代码.

想要简便点就弄个循环。

如果是想实现其他 不连续范围 选中后 做一些循环处理的，自己百度下相关代码。应该很常见。
我不懂，我也用不到。

wangjwpx

moonlit123 发表于 2019-10-1 21:30
...
如果你只是 查找加粗斜体单元格后清除内容。

谢谢，我已经复制了

wangjwpx

liulang0808 发表于 2019-9-30 07:35
Sub Macro5()

    Columns("B:B").Select

谢谢版主，通过学习，和其他网友指导，可以一键清除不连续区域内容了