[已解决]根据文本内容确定文本格式

心灵有约

根据文本内容确定文本格式.rar (9.48 KB, 下载次数: 12)

2015-2-3 14:50 上传

点击文件名下载附件

原表
发货单
客户编码	客户名称	日期	单号	月初余额	发货	回款	最新余额	信用额度	信用等级	是否超额	备注
1001										是
1001										否
以下为效果表：
发货单
客户编码	客户名称	日期	单号	月初余额	发货	回款	最新余额	信用额度	信用等级	是否超额	备注
1001										是
1001										否
解决方法：vba
说明：表行数不确定（本表仅例举两行）

最佳答案

月排行榜 / 总排行榜

dsmch

2015-2-3 15:44

1. Sub Macro1()
   
2. Dim rng As Range, c As Range
   
3. Set rng = Range([k4], Range("k65536").End(xlUp))
   
4. rng.HorizontalAlignment = xlRight
   
5. For Each r In rng
   
6. If r = "是" Then
   
7. If c Is Nothing Then Set c = r Else Set c = Union(c, r)
   
8. End If
   
9. Next
   
10. If Not c Is Nothing Then
    
11.     c.HorizontalAlignment = xlLeft
    
12.     c.Font.Bold = True
    
13.     c.Font.ColorIndex = 3
    
14. End If
    
15. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim rng As Range, c As Range
   
3. Set rng = Range([k4], Range("k65536").End(xlUp))
   
4. rng.HorizontalAlignment = xlRight
   
5. For Each r In rng
   
6. If r = "是" Then
   
7. If c Is Nothing Then Set c = r Else Set c = Union(c, r)
   
8. End If
   
9. Next
   
10. If Not c Is Nothing Then
    
11.     c.HorizontalAlignment = xlLeft
    
12.     c.Font.Bold = True
    
13.     c.Font.ColorIndex = 3
    
14. End If
    
15. End Sub

复制代码