Csinálsz egy gombot és hozzá bemásolod ezt a kódot

Dim i As Integer
For i = 1 To 20
Range(Cells(i, 1), Cells(i, 2)).Select
Selection.UnMerge
Cells(i, 2) = Cells(i, 1)
Next i

a "20" az a sorok száma, az "1" (az A az 1, a B a 2 és így tovább) az cella amiben van az adat, a "2" amivel egyesítve van az első cella, "i" sorszám változó.

Van egy 22 ezer soros adattáblám, tele egyesített cellákkal (ksh-s lekérdezés volt). Mivel elég sok időbe telne az, hogy egyesével kibontom a cellaegyesítéseket, és ugyanazzal a szöveggel kitöltöm az így megüresedett cellákat, írni kéne rá egy makrot. Illetve nem is írni, mert van egy makro rögzítő is az excelben, ami "felveszi" a mozdulatsorokat, aztán egy billentyűparancsra végre is hajtja azokat. Na itt van a bökkenő.

Felvettem az alábbi mozdulatsort: cellaegyesítést megszüntettem, első cellába belekattintottam, majd a jobb alsó sarokban a keresztre kétszer kattintva kitöltöttem a cellákat.

A következő ilyen egyesített cellába beállva kiadom ezt a parancsot, a cellák egyesítését megszünteti, viszont a kitöltést már nem csinálja meg, helyette visszaugrik az előző cellákra, kijelölve azokat (gondolom ott akarta végrehajtani a kitöltést).

Hogy lehet úgy megcsinálni, hogy mindegyikre ugyanúgy hasson a parancs? Nekem már az is jó, ha egyesével megcsinálja ugyanazt a mozdulatsort.

Kicsit felejtettem már. A darabteli függvénynél kellene egy olyan kritérium, hogy egy időintervallumon belül számolja össze a dolgokat. Pl. a 2009-es évben történteket.

szoval azt kene, hogy ha egy sorba beirom pl. "555", akkor a mellette levo x teglalapba automatikusan beirja azt a szoveget amit az "555" szamkodhoz hozzarendeltem.

valaki?