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

Excalibur33 · 发表于 2021-10-10 22:27

来学习了

ExcelVBAVBA123 · 发表于 2021-10-14 23:42

普普通通 · 发表于 2021-10-15 18:05

看作业

czh1998 · 发表于 2021-10-20 11:05

康康

nodoubt · 发表于 2021-10-24 16:37

看看

TedHuang · 发表于 2021-10-30 13:18

學習

林木水 · 发表于 2021-11-4 10:14

Sub 题目()
Dim rg As Range
Set rg = Sheets("sheet3").Columns("b:d").SpecialCells(xlCellTypeConstants)
Application.Intersect(Sheet3.Columns(1), rg.EntireRow).Value = 1
Application.Intersect(Sheet3.Columns(1), rg.EntireRow).Interior.Color = vbYellow
End Sub

林木水 · 发表于 2021-11-4 10:18

林木水发表于 2021-11-4 10:14
Sub 题目()
Dim rg As Range
Set rg = Sheets("sheet3").Columns("b:d").SpecialCells(xlCellTypeC ...

1.选择B:D列，定位常数（当然首先要把有公式的单元格复制选择性粘贴数值）用到SpecialCells方法
2.选择（定位常数的所有行，A列）的共同单元格，赋值1得结果用到(EntireRow 选取所有行，Intersect共同区域方法）
3.同理将单元格内部格式颜色填充成黄色

149058845 · 发表于 2021-11-4 16:17

来学习学习的。

洛晗 · 发表于 2021-11-7 20:35

请教学习大神答案

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