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

yangweijiang · 发表于 2020-10-1 20:49

？

xfshuangyan · 发表于 2020-10-1 23:16

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

yamlh · 发表于 2020-10-8 22:59

看看答案

stevemaa · 发表于 2020-10-13 22:51

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想要流浪 · 发表于 2020-10-14 16:18

不会做，过来找答案

stbey · 发表于 2020-10-19 19:21

提示有不良信息，代码不知道包含啥不良信息了

xxd36xxd · 发表于 2020-10-29 21:23

OK看看答案

xxww_vip520 · 发表于 2020-11-1 17:07

新人前来报道，最近开始学习VBA，感觉好难啊。

luors · 发表于 2020-11-6 21:20

我又来了

kuroT · 发表于 2020-11-7 16:07

第一题：
Sub x1()
Dim rg As Range
Columns("b:d").SpecialCells(xlCellTypeConstants).Select
Set rg = Selection
Application.Intersect(Columns(1), rg.EntireRow).Value = 1

End Sub

		自动登录	找回密码
密码			注册