帮忙改写选项卡的代码

q490525427

A列到H列设置文本格式,同时A列到H列单元格内有0的清除0
谢谢

风雨声点滴

Sub FormatAndClearCells()
    Dim rng As Range
    Dim cell As Range

    ' 设置 A 到 H 列的格式为文本
    Set rng = ActiveSheet.Range("A:H")
    rng.NumberFormat = "@"

    ' 检查每个单元格，如果值为 0，则清除内容
    For Each cell In rng
        If cell.Value = 0 Then
            cell.ClearContents
        End If
    Next cell
End Sub

风雨声点滴

还在审核  已经发出了

q490525427

风雨声点滴 发表于 2024-3-16 19:43
Sub FormatAndClearCells()
    Dim rng As Range
    Dim cell As Range

您好,试了一下,好像刹不住,一直在运行,能再帮忙改一下,识别到0的最后一行改文本,

风雨声点滴

q490525427 发表于 2024-3-16 20:22
您好,试了一下,好像刹不住,一直在运行,能再帮忙改一下,识别到0的最后一行改文本,

只看a列和h有没有0 是吗

q490525427

风雨声点滴 发表于 2024-3-16 20:25
只看a列和h有没有0 是吗

是的,截止到0的一行设置文本格式

风雨声点滴

就这样了。

风雨声点滴

Sub FormatAndClearCells()
    Dim rng As Range
    Dim cell As Range

    ' 设置 A 到 H 列的格式为文本
    Set rng = ActiveSheet.Range("A:A")
    rng.NumberFormat = "@"
    Set rng = ActiveSheet.Range("H:H")
    rng.NumberFormat = "@"

    ' 检查A列、H列编辑区域，如果值为 0，则清除内容
    ' A列
    Set rng = ThisWorkbook.ActiveSheet.UsedRange.Columns("A:A")
    For Each cell In rng.Cells
            If cell = "0" Then cell.ClearContents
    Next cell
    ' A列
    Set rng = ThisWorkbook.ActiveSheet.UsedRange.Columns("H:H")
    For Each cell In rng.Cells
        If cell.Value = "0" Then cell.ClearContents
    Next cell
End Sub

q490525427

风雨声点滴 发表于 2024-3-16 22:56
就这样了。

感谢帮忙,鲜花送上