如何根据指定单元格内包含的信息，更改另一单元格格式

男子汗

想将H列如果包含 “信用卡”三字的话，H列或者G列自动设置为文本格式求助一下！！

zjdh

Sub TEST()
    For I = 1 To 1000
        Set W = Cells(I, "H").Find("信用卡")
        If Not W Is Nothing Then
            Cells(I, "H").NumberFormatLocal = "@"
            Cells(I, "G").NumberFormatLocal = "@"
        End If
    Next
End Sub

男子汗

zjdh 发表于 2023-9-19 14:51
Sub TEST()
    For I = 1 To 1000
        Set W = Cells(I, "H").Find("信用卡")

感谢大佬。不知道图有没有成功贴出来。网络不太好，论坛没有经常能登进来。今早试了一下，没能成功。可能是我表述的有问题。是根据I列单元格里有“信用卡”的文本，判定H列，G列为文本才对。

男子汗

zjdh 发表于 2023-9-19 14:51
Sub TEST()
    For I = 1 To 1000
        Set W = Cells(I, "H").Find("信用卡")

大佬我来还愿了。
我把公式改为Set W = Cells(I, "I").Find("信用卡")即可使用。
现在最大问题是如何自动将设置好的文本格式给更新，能有解决方案吗？不然单元格还是被默认为常规。

zjdh

1. 用宏设定
Sub TEST()
    Columns("G:H").NumberFormatLocal = "@"
End Sub
2. 手工直接设定一下即可。   激活“G:H”2列，设置单元格格式。

男子汗

zjdh 发表于 2023-10-2 10:43
1. 用宏设定
Sub TEST()
    Columns("G:H").NumberFormatLocal = "@"

感谢大佬！