有没有快速的办法设置表格背景色的，求大佬相助！！

cherry芝 · 发表于 2024-6-18 13:40

quqiyuan · 发表于 2024-6-18 14:44

多的话，像你表格那样分成一个一个的区域的话，用vba，可以的

木槿花西月锦绣 · 发表于 2024-6-18 15:01

如果中间空格行数相同的话，可以直接用格式刷

uug · 发表于 2024-6-18 15:21

不知是不是这样……　　参考

abc3479 · 发表于 2024-6-18 15:48

本帖最后由 abc3479 于 2024-6-18 23:12 编辑

<blockquote>Sub TestSub()

复制代码

abc3479 · 发表于 2024-6-18 23:17

Sub TestSub()
'CurrentRegion.Interior.Color = 5296274
'CurrentRegion.Interior.Color = 12498932
With Sheet1
      j = Cells(Rows.Count, 1).End(3).Row
      For i = 1 To j
         If i Mod 2 = 0 And Cells(i, 1).Offset(3, 0) <> "" Then
            Cells(i, 1).CurrentRegion.Interior.Color = 5296274
         Else
            Cells(i, 1).CurrentRegion.Interior.Color = 12498932
         End If

         If Cells(i, 1) = "" Then
            Cells(i, 1).EntireRow.Interior.Pattern = xlPatternNone
         End If
      Next
End With
End Sub

abc3479 · 发表于 2024-6-18 23:22

abc3479 · 发表于 2024-6-18 23:23

木槿花西月锦绣 · 发表于 2024-6-19 12:03

可以间隔任意行

Sub Test()
flag = True
With Sheet1
      j = Cells(Rows.Count, 1).End(3).Row
      For i = 1 To j
         If Cells(i, 1) <> "" And Cells(i + 1, 1) = "" Then flag = Not (flag)
         If flag Then
            Cells(i, 1).CurrentRegion.Interior.Color = 5296274
         Else
            Cells(i, 1).CurrentRegion.Interior.Color = 12498932
         End If
         If Cells(i, 1) = "" Then
            Cells(i, 1).EntireRow.Interior.Pattern = xlPatternNone
         End If
      Next
End With
End Sub

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

[求助] 有没有快速的办法设置表格背景色的，求大佬相助！！