删除内容、消除颜色

sampsonpon · 发表于 2024-12-11 08:22

UsedRange.Offset(2, 6).ClearContents 这是从G3开始往下往右删除内容
用最简单的几句，如何表示：删除G3:H内容+消除I3:K颜色？

arsong · 发表于 2024-12-11 08:48

录制宏看一下就明白了
删除内容：rng.ClearContents
清除字色：rng.Font.ColorIndex = xlAutomatic
清除底色：rng.Interior.Pattern = xlNone

loirol · 发表于 2024-12-11 08:49

range("g3:h999").clearcontents, range("i3:k999").interior.pattern = xlnone

z865593849 · 发表于 2024-12-11 08:49

arsong · 发表于 2024-12-11 08:53

i为变量，要表示G3:Hi,I3:Ki，可用：
range("G3:H" & i)，range("I3:K" & i)
[G3].resize(i-2,2)，[I3].resize(i-2,3)

sampsonpon · 发表于 2024-12-11 08:57

z865593849 发表于 2024-12-11 08:49

Activesheet会不会不能指定表？

arsong · 发表于 2024-12-11 08:59

ykcbf1100 · 发表于 2024-12-11 09:11

r = Cells(Rows.Count, "b").End(3).row
range("g3:h"&r).ClearContents
[i:k].Interior.ColorIndex = 0

sampsonpon · 发表于 2024-12-11 09:13

arsong 发表于 2024-12-11 08:59

明白您意思，但您也没界定在哪个表里执行

sampsonpon · 发表于 2024-12-11 09:15

loirol 发表于 2024-12-11 08:49
range("g3:h999").clearcontents, range("i3:k999").interior.pattern = xlnone

嗯，能看得明白，没有判断是多少行，直接3到999行，也没界定在在哪个表里

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

[求助] 删除内容、消除颜色