Trebueca help programmista po VB ljubogo razrjada.

[weasle]

Tovari64i programisti! Znaju, 4to dlja vas eto sovsem prostenjkaja zada4ko, a vot ja sovsem ne pru v VB,no pozarez v njem samom nuzhna programma. Kto nibudj pomogite napisatj pljevuju progu ot A do Z (ja poka 4to nau4ilsja toka kopirovatj progi v VB Editor i potom zapuskatj):
Zna4it v ja4ejke A1 menjajuca postojanno zna4enija. Ja ho4u 4tobi odinozhdi zapustiv macros, vse eti zna4enija avtomatom kopirovalisj v stolbec B. Spasibo zaranee ogromnoe vsem kto pomozhet.

[corgi]

1. тебе надо в VBA
2. RTFM
3.

Код: Выделить всё

Sub mymacros()
Dim i As Long
    i = 1
    Do While Sheets(1).Cells(i, "A").Value <> ""
        Sheets(1).Cells(i, "B").Value = Sheets(1).Cells(i, "A").Value
        i = i + 1
    Loop
End Sub