Excel- pytanie

[Gość: Wowo]

Mam w kolumnie wpisane liczby. Jest to kilka tysiecy wierszy.Czy mozna jedna
komenda w excelu dopisac przed kazda z tych liczbe wyroznik? Np mam 3350, a
chce miec 1-3350??

Pozdrawiam

[Gość: Anka]

Można. Np piszesz formułę ="1-"&A1 gdzie w nawiasie jest to co chcesz dopisać a
A1 to adres komórki w której jest to do czego chcesz dopisać

[Gość: Anka]

i potem oczywiście przeciągasz formułę do końca kolumny.
Potem kopiujesz wynik tej formuły i wklejasz specjalnie wartości.

[Gość: Wrecekrzepki]

Lub tez klikasz prawym na dole na nazwe arkusza, wybierasz "Wyswietl kod",
wklejasz w puste pole ponizszy tekst:

Sub Dodaj()

cLastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To cLastrow
Cells(i, 1) = "1-" & Cells(i, 1)
Next

End Sub

W wyrazeniu (Rows.Count, "A") zamiast A wstaw literke interesujacej Cie kolumny,
a tam, gdzie pojawia sie Cells(i, 1) zamiast 1 wstaw numer tej samej kolumny (A
to 1, B to 2, itd). Zamiast "1-" mozesz wstawic interesujacy Cie tekst albo
wyroznik.

Klikasz nastepnie na gorze na zielony trojkacik (wyglada jak przycisk PLAY) i
sie uzupelnia.

Aha, uwaga, ten sposob nie ma funkcji "Cofnij", wiec zapisz plik przez uzyciem.

[negevmc]

Gość portalu: Wrecekrzepki napisał(a):

> Sub Dodaj()
..
> Cells(i, 1) = "1-" & Cells(i, 1)

Zabawny efekt. Npisałem podobne makro:

For iRow = 1 To 10
With ActiveSheet
.Cells(iRow, 1) = "1-" + Trim(Str(.Cells(iRow, 1)))
End With
Next iRow

i chciałem sprawdzić jak działa. Wpisałem jakieś tam cyferki 1, 2, 3 etc.
po wykoinaniu makra (teraz także sprawdziłem operator "&" - działa tak samo)
excel wyświetlił mi datę! Po prostu 1-2 zrozumiał jako 1 lutego :-)
Żeby temu zapobiec trzeba "na siłę" usatlić format komórek jako Text

.Range(.Cells(iRow, 1), .Cells(iRow, 1)).NumberFormat = "@"

P.S.
Podobało mi się Twoje
cLastrow = Cells(Rows.Count, "A").End(xlUp).Row
może tu coś poradzisz:
forum.gazeta.pl/forum/72,2.html?f=15700&w=59746401

Pozdrawiam