格式

ddz79101

老师！有2列数据需要按条件设置单元格的格式，如何循环和选用函数，请老师指点。谢谢

醉眼看尘世

其实，建议用筛选空白或非空白，定位可见单元格，然后进行格式设置

1. Sub FormatSet()
   
2. Dim sH As Worksheet, rG As Range, Arr, i&
   
3. Set sH = ActiveSheet
   
4. With sH
   
5.     i = .Cells(.Rows.Count, "C").End(3).Row
   
6.     .[D6].Resize(i - 5, 3).NumberFormatLocal = "#,##0.00"
   
7.     Arr = .[C1].Resize(i, 3)
   
8.     For i = 6 To UBound(Arr, 1)
   
9.         If Arr(i, 1) = "" Then
   
10.             If rG Is Nothing Then
    
11.                 Set rG = .Cells(i, "D").Resize(1, 2)
    
12.             Else
    
13.                 Set rG = Union(rG, .Cells(i, "D").Resize(1, 2))
    
14.             End If
    
15.         End If
    
16.     Next i
    
17.     If Not rG Is Nothing Then rG.NumberFormatLocal = "G/通用格式"
    
18. End With
    
19. End Sub
    

复制代码

ddz79101

醉眼看尘世 发表于 2024-8-11 14:35
其实，建议用筛选空白或非空白，定位可见单元格，然后进行格式设置

谢谢老师！运行顺利。

沈默00

沈默00

应该是用C列来判断DE列的格式吧，
我没用I列，用的是C列不为空判断的

ddz79101

沈默00 发表于 2024-8-11 15:48
应该是用C列来判断DE列的格式吧，
我没用I列，用的是C列不为空判断的

谢谢老师！简单特棒！但r = .UsedRange.Find("*").Row
    xr = .UsedRange.Find("*", , , , , 2).Row
不理解。可以解释吗