VBA80集第12集作业上交贴：非空行

俄嗄嗄

谢谢分享，，+0000

cqkd822

学习学习

lgljd2007

Sub text()
On Error Resume Next
    For i = 3 To 10
   
    If Range("b" & i, "d" & i).SpecialCells(xlCellTypeBlanks).Count <> 3 Then Range("a" & i) = 1

  Next
End Sub

mcfc

看看学习学习前辈

lxin123

看看答案！！！！

leaf0603

学习

One123..

参考答案 这里是答案吗  哈哈

gshzero

看看高手的答案

伊盈

谢谢

伊盈

xx