恳请高手师傅们帮忙解决一个根据单元格为空，删除指定内容的难题

qiongmei6

我希望求得一个代码，就是在o5:o15，如o5:o15有单元格为空，则L：R列会清除同行相关的内容，同行其他列不会清除资料，谢谢高手师傅们的帮忙。

万事胜①

是这个意思吗 Book1.xls.zip (16.43 KB, 下载次数: 4)

2023-3-2 22:22 上传

点击文件名下载附件

松永

Sub sc()
Dim i As Integer
For i = 4 To 15
    If Cells(i, 15).Value = "" Then
        Range(Cells(i, 12), Cells(i, 18)).Select
        Selection.ClearContents
        i = i + 1
    End If
Next i
End Sub

松永

看这个行吗？