数组批量设置单元格格式

最新推荐文章于 2022-06-12 21:13:52 发布

hire20200316

最新推荐文章于 2022-06-12 21:13:52 发布

阅读量252

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/hire20200316/article/details/114143448

版权

本文介绍了两种批量设置Excel单元格格式的数组方法，包括使用带列标的区域表示如'a15:d18'，以及使用不带列标的字符串如'15：18'。在实践中，由于可能出现的'下标越界'错误，需要通过'on error resume next'来解决。尽管第三种方法尝试减少字符串占用，但实际运行时间与第二种相近。作者强调，无论何时都需要不断学习和提升。

摘要由CSDN通过智能技术生成

第一次尝试写博客。上午和好久没联系的同学聊了好久，她说接到电话时以为我到她住的城市了，寻思请我吃饭.....多年不见，她口音变了一点，还是那么幽默风趣。希望有机会再见面。
今天开始对最近学习的VBA进行复习，之前听课时记的笔记里面有些内容想了好久才搞明白，还是要自己动手运行这样理解才深刻。
 数组除了数字类型外，当然没有颜色、字体等格式，但range对象可以表示多个连续或不连续的区域，我们就可以用数组构造单元格地址串，然后批量对单元格进行格式设置。
 需要注意的是，Range里单元格地址串不能大于255，所以如果单元格操作过多，需要分批设置单元格格式。
 示例中是对d列中数字大于500的行标记为红色，我放了2417行数据
 第一种数组方法：对每行进行判断。运行时间0.039秒`

Sub 数组方法1()
Dim arr, t
Dim x As Integer
Dim sr As String, sr1 As String
清除颜色

t = Timer
arr = Range("d2:d" & Range("a65536").End(xlUp).row)
For x = 1 To UBound(arr)
    If x = UBound(arr) And sr <> "" Then Range(Left(sr, Len(sr) - 1)).interrior.ColorIndex = 3
    If arr(x, 1) > 500 Then
    sr1 = sr             '这里的sr1作用是预防字符串长度大于250
    sr = sr &