[已解决]求解：利用vba取得所选任意区域的非空单元格,越快越好

hunpo

希望得到任意的连续或不连续的所选择的区域的非空单元格，并将非空单元格的颜色设为红色，请教VBA的实现代码，一定要快，数据量好大的，求高手！

最佳答案

月排行榜 / 总排行榜

Benol

2011-11-27 18:04

借用Dj_soo的思路，完善一下。

1. Union(Selection.SpecialCells(xlCellTypeFormulas), Selection.SpecialCells(xlCellTypeConstants)).Interior.Color = vbRed

复制代码

完善理由：Dj_soo的思路再去色的那一步会影响其他单元格原有的底色。

跳转到最佳答案楼层

上清宫主

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In Target
    If Len(rng) Then
       If s$ = "" Then
          s = rng.Address(0, 0)
       Else
          s = s & "," & rng.Address(0, 0)
       End If
       If Len(s) > 200 Then
          Range(s).Interior.Color = vbRed
          s = ""
       End If
    End If
Next
If Len(s) Then Range(s).Interior.Color = vbRed
End Sub

Dj_soo

上清宫主 发表于 2011-11-24 15:28
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In Targ ...

用定位不如这个快吗?

Dj_soo

录制后修改一下:

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' Macro recorded 2011-11-24 by qdawgao
   
5. '
   
6. 
   
7. '
   
8.     With Selection
   
9.         .Interior.Color = vbRed
   
10.         .SpecialCells(xlCellTypeBlanks).Interior.Color = xlNone
    
11.     End With
    
12. End Sub

复制代码

上清宫主

就是就是，啷个一下没想到起定位呢

Dj_soo

上清宫主 发表于 2011-11-24 15:55
就是就是，啷个一下没想到起定位呢

嘿嘿,给弄出来了{:011:}

hunpo

汗，我需要的是不连续区域的非空单元格啊，还是没有实现；定位以后，是不是还要一个一个单元格循环变为红色吗？还是没解决啊

Dj_soo

hunpo 发表于 2011-11-24 17:14
汗，我需要的是不连续区域的非空单元格啊，还是没有实现；定位以后，是不是还要一个一个单元格循环变为红色 ...

我的代码不行?不可能吧!

Dj_soo

邪了门了,我用的代码都好好的怎么老不行?上附件!

hunpo

Dj_soo,还请出示你的代码一用阿