如何使用VBA向下自动填充空单元格后对不同的连续区域批量填充颜色？

作者：绿色风分类：时间：2022-08-18 浏览：165

楼主
xmyjk

Q:如何使用VBA向下自动填充空单元格后,并对不同的连续区域批量填充颜色？

Option Explicit
Sub aa()
Dim arr, n As Long, i As Long, m As Integer
n = [a65536].End(3).Row
arr = Range("b2:b" & n).Value
For i = 1 To UBound(arr, 1)
If arr(i, 1) = 0 Then arr(i, 1) = arr(i - 1, 1)
Next
[b2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr
For i = 2 To [b65536].End(3).Row
If Cells(i, 2) <> Cells(i - 1, 2) Then
m = m + 1: Cells(i, 2).Interior.ColorIndex = m
Else
Cells(i, 2).Interior.ColorIndex = Cells(i - 1, 2).Interior.ColorIndex
End If
Next
End Sub

向下自动填充空单元格后填充色.rar

2楼
yangkd2011

进料明细改动料号时

客户别查询结果

见上图查询时客户别选择计算后不符条件
请费心修改一下谢谢了
我弄错主题应该是
http://www.exceltip.net/thread-25009-1-1.html
楼主请关注。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表