resize如何用吗

ddz79101

老师！有行，我想以A列单元格的某空格为原点，对此行的某段涂色，但发现使用resize使用不了。只好使用offset，但显得繁琐。请老师帮忙指点

dragonthree

Range(Cells(rng.Row, 1), Cells(rng.Row, 4))

dragonthree

rng.Resize(1, 4).Interior.Color = RGB(0, 255, 0)也行

wang-way

我觉得  这些很基础的问题 可以直接问AI  

cdcn

1. Sub 标注包含某一内容的单元格()
   
2.     Dim rng As Range
   
3.     For Each rng In Range("A1:a33")
   
4.         If rng = "" Then
   
5.             rng.Resize(1, 4).Interior.Color = RGB(0, 255, 0)
   
6.         End If
   
7.     Next
   
8.     For Each rng In Range("b13:b22")
   
9.         If rng.Value Like "" Then
   
10.             rng.Resize(1, 3).Interior.Color = RGB(255, 204, 153)
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码

ykcbf1100

这样就行了。

ddz79101

cdcn 发表于 2024-5-25 19:57

谢谢老师！运行成功

ddz79101

ykcbf1100 发表于 2024-5-25 20:13
这样就行了。

谢谢老师！运行成功