设计一个JS宏

俊宇19856704

首先道个歉，公司有内部加密软件，无法上传文件，只能上传图片。需求：这个表每天都更新，带颜色部分需要删除，每次手动特别麻烦，其他不带颜色数字除了序号就是单元格内有公式，有没有大神给个宏

chlzj

如你上图，数据从第6行开始的，A列是序号
Sub AAArCellsWithCondition()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 6 To lastRow
        remainder = i - 5 Mod 3
        If remainder > 0 Then
            Cells(i, 4).ClearContents
            Cells(i, 11).ClearContents '后边可添加更多的列，改列号就行了
        End If
    Next i
End Sub

chlzj

Sub AAArCellsWithCondition()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 6 To lastRow
        remainder = i - 5 Mod 3
        If remainder > 0 Then
            Cells(i, 4).ClearContents
            Cells(i, 11).ClearContents　‘更多的列自行添加，改列号就行
        End If
    Next i
End Sub

俊宇19856704

chlzj 发表于 2024-8-30 17:51
Sub AAArCellsWithCondition()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp). ...

我是WPS，这个运行不了呢

sunya_0529

俊宇19856704 发表于 2024-8-31 14:17
我是WPS，这个运行不了呢

JSA试一下——

grf1973

看规律不用判断颜色，列名"STD"为空的删掉即可。

grf1973

比如最左侧数据源为arr
那么保留结果就是res=arr.filter(x=>x[2]!=undefined)
把res输出到指定位置即可。

俊宇19856704

grf1973 发表于 2024-9-10 14:42
比如最左侧数据源为arr
那么保留结果就是res=arr.filter(x=>x[2]!=undefined)
把res输出到指定位置即可。

你说的确实是对的，本来这个表也没颜色，我只是告诉大神们那是我想删除的