[已解决]查询间距的问题

阿柔

附件 查询间距附件.rar (28.5 KB, 下载次数: 10)

2014-5-17 22:48 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-17 23:09

1. Sub demo()
   
2.     Dim i&, j&
   
3.     Application.ScreenUpdating = False
   
4.     Rows(55).ClearContents
   
5.     For i = 1 To Cells(1, 1).End(xlToRight).Column
   
6.         For j = 52 To 1 Step -1
   
7.             If Cells(j, i).Interior.Color = 65535 Then
   
8.                 Cells(55, i).Value = 53 - j
   
9.                 Exit For
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "ok"
    
15. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub demo()
   
2.     Dim i&, j&
   
3.     Application.ScreenUpdating = False
   
4.     Rows(55).ClearContents
   
5.     For i = 1 To Cells(1, 1).End(xlToRight).Column
   
6.         For j = 52 To 1 Step -1
   
7.             If Cells(j, i).Interior.Color = 65535 Then
   
8.                 Cells(55, i).Value = 53 - j
   
9.                 Exit For
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "ok"
    
15. End Sub

复制代码

su45

hwc2ycy 发表于 2014-5-17 23:09

烟版动作真快！