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

TedHuang

學習

林木水

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: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

来学习学习的。

洛晗

请教学习大神答案

cacewhu

厉害厉害

zerra

谢谢版主分享，加强VBA学习

taoliu19466866

study

liujunstar

前来学习

frb719

查看谢谢