数组输出到EXCEL后指定条件的标颜色，是否有快捷方法

yf_992258

现在的做法，某一数组，输出到EXCEL，然后在逐行判断符合条件的记录，单元格字体红色，数组输出后再遍历附颜色，比较慢效率低，有时候数组有N万条记录的，所以请教有没有更好更优快捷的方法


举例
dim xx( 1 to 100,1 to 1)
'-----------xx数组采集过程
range("a2:a101")=xx'------xx是数组
for i= 1 to 100
if xx(i,1)="" then'--------------如果符合空白，字体红色，此处可以换其他条件
  '-----------单元格字体赋予红色高亮
end if
next

小凡、、、

可以写条件格式应用到整个区域，效率应该比挨个循环判断要快一点

周土豆

你运行前先
Excel.Application.ScreenUpdating = False
运行结束
Excel.Application.ScreenUpdating = True
注意运行过程的错误就行

taller

两种实现思路
1. 目标区域设置条件格式，将相应单元格设置指定格式

2. 遍历数组，找到保护指定数据的单元格，然后将指定单元格使用Union合并区域，一次性设置单元格格式

1.     Dim xx(1 To 100, 1 To 1)
   
2.     Dim rRng As Range
   
3.     '-----------xx数组采集过程
   
4.     Range("a2:a101") = xx '------xx是数组
   
5.     For i = 1 To 100
   
6.         If xx(i, 1) = "" Then '--------------如果符合空白，字体红色，此处可以换其他条件
   
7.           '-----------单元格字体赋予红色高亮
   
8.           If rRng Is Nothing Then
   
9.             Set rRng = Cells(i + 1, 1)
   
10.           Else
    
11.             Set rRng = Union(rRng, Cells(i + 1, 1))
    
12.           End If
    
13.         End If
    
14.     Next
    
15.     If rRng Is Nothing Then
    
16.         rRng.Font.Color = vbRed
    
17.     End If

复制代码

yf_992258

taller 发表于 2024-8-25 00:32
两种实现思路
1. 目标区域设置条件格式，将相应单元格设置指定格式

谢谢版主出手相助！这里举例100，如果记录数多，反复set,然后加入Union，会不会影响效率，应该比逐行单元格对象要快吧，我先试试！

大灰狼1976

输出至工作表后用VBA自动筛选-->标色-->取消筛选是最快的。

大灰狼1976

Sub test() '创建虚拟测试数据
Dim arr
[a1:j1] = ["A"&COLUMN(A:J)]
[a2].Resize(50000, 10) = "=randbetween(-100,100)"
[a2].Resize(50000, 10) = [a2].Resize(50000, 10).Value
End Sub

Sub Doit() '测试50000行10列处理时间约0.1秒
t = Timer
Application.ScreenUpdating = False
With [a1].CurrentRegion
  .AutoFilter Field:=1, Criteria1:="<0"
  .Offset(1).Font.Color = vbRed
  .AutoFilter
End With
Application.ScreenUpdating = True
MsgBox Timer - t
End Sub

yf_992258

大灰狼1976 发表于 2024-8-26 14:09
Sub test() '创建虚拟测试数据
Dim arr
[a1:j1] = ["A"&COLUMN(A:J)]

好方法，谢谢版主出手！等会测试一下！