GBKEE

¦^´_ 7# c3676816
¬O³o¼Ë¶Ü!

1. Function FindRange()
   
2.     Dim i As Integer, Rng As Range
   
3.     Range("B6").Select
   
4.     Set Rng = Range(Selection, Selection.End(xlToRight))
   
5.     For i = 2 To Rng(Rng.Columns.Count).Column - Rng(1).Column + 1
   
6.         If Rng.Cells(i) = "SUM" Then
   
7.             Exit For
   
8.         End If
   
9.     Next i
   
10. End Function
    
11. Function Ex()
    
12.     Dim E As Range, Rng As Range
    
13.     Set Rng = Range(Range("B6"), Range("B6").End(xlToRight))
    
14.     For Each E In Rng
    
15.         If E = "SUM" Then Exit For
    
16.     Next
    
17. End Function

½Æ»s¥N½X

GBKEE

¦^´_ 9# c3676816
½ÐªþÀɬݬÝ,¬°¦ó¿ù»~