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

PennyAsh6urn

Sub 第1题循环()
Dim rg As Range
  For Each rg In Range("b:d")
   If rg.Value <> "" Then
   Range("a" & rg.Row) = 1
   End If
  Next
End Sub

迷雾森林

sub a
end sub

啊甘学VBA

'题目:B:D列各行单元格,如果为非空,则在该行A列填充数字1,如A列所示,要求: 不得使用循环
Sub t1()
Dim i
For i = 2 To 10
    If Range(Cells(i, 2), Cells(i, 4)).SpecialCells(xlCellTypeBlanks).Count < 3 Then
        Range("A" & i) = 1
    End If
Next
End Sub

huangyu0601

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

Kriva

打卡

wang232323

前来学习，大家共同进步

zhaoqin123

啊啊啊

coldwind86

皮特猫

WKK

皮特猫

看看