求一条初始化的代码

helloexcel2014

对B列中的数字对应的1-12月份的数据及批注进行删除

z865593849

饮冰e士

limonet

Sub limonet()
    Dim Arr As Variant, i%
    Arr = Range("B16:B" & Range("B" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(Arr)
        If IsNumeric(Arr(i, 1)) Then
            Range(Cells(i + 15, "G"), Cells(i + 15, "R")).ClearContents
            Range(Cells(i + 15, "G"), Cells(i + 15, "R")).ClearComments
        End If
    Next i
End Sub

limonet

关键字：if then+clear

helloexcel2014

limonet 发表于 2024-11-18 11:52
关键字：if then+clear

不好意思，少说了空值，如果“空值、中文、英文”等这些就不清除，只有数字的时候才清除

limonet

helloexcel2014 发表于 2024-11-18 14:33
不好意思，少说了空值，如果“空值、中文、英文”等这些就不清除，只有数字的时候才清除

IsNumeric(Arr(i, 1)) and Arr(i, 1)<>""