Skocz do zawartości

  •  
  • Mini kompendium
  • MimeTeX
  • Regulamin

- zdjęcie

Vianne

Rejestracja: 20 Dec 2008
Offline Ostatnio: Jun 28 2017 21:16
****-

Moje tematy

Visual Basic zapętlanie

26.06.2017 - 05:13

Mam pytanie na temat tego jak zapętlić taki kod:

 

 

Dim i, j As Integer
 
i = 7
j = i - 1
    
    Do Until Cells(i, 3) <> ""
    
        Cells(i, 3) = Cells(j, 3)
        
    i = i + 1
     
    Loop
            
        j = i
        i = i + 1
        
        Do Until Cells(i, 3) <> ""
            
                Cells(i, 3) = Cells(j, 3)
                
            i = i + 1
             
            Loop
 
j = i
        i = i + 1
        
        Do Until Cells(i, 3) <> ""
            
                Cells(i, 3) = Cells(j, 3)
                
            i = i + 1
             
            Loop
j = i
        i = i + 1
        
        Do Until Cells(i, 3) <> ""
            
                Cells(i, 3) = Cells(j, 3)
                
            i = i + 1
             
            Loop
....
 
 
Dodatkowo chciałabym żeby te działania byly wykonywane do momentu, aż Excel wykryje pierwszą niepustą komórkę w kolumnie A, startując od wiersza 7 w tej kolumnie.
 
Do tego ułożyłam sobie pętle if jak poniżej, jednakże chciałabym to wszystko połączyć w całość.
 
Sub pierwsza_niepusta()
 
For p = 7 To 10000
    
    If Cells(p, 1) = "" Then
    
    Else
    'MsgBox "znalazl niepusta i wynosi ona" & " " & p
    Exit For
    
    End If
 
Next p
 
End Sub
 
Z góry dziekuję za pomoc :) !