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

humyshellwing

不用循环一次生产，不会

一休1

1111111

19972016253

第2题又重复看了老师的视频，编写了代码，自己运行了几次，是正常的

183873215

进来学习一下。

Jack008800

真后悔现在才学

yangweijiang

？

xfshuangyan

学习。。。。。。。。。。

yamlh

看看答案

stevemaa

Sub 非空儲存格標著()

   Sheets("工作表1").Activate

   Dim x As Integer

    Fori = 3 To 10

       x = Range("A" & i).End(xlToRight).Column

       If (x > 1 And x <= 4) Then

           With Range("A" & i)

                .Value = "1"

                .Interior.ColorIndex = 6

           End With

       End If

   Next i

End Sub

me想要流浪

不会做，过来找答案