Fjern alt efter første komma

=VENSTRE(A1;FIND(",";A1)-1)

Jeg kan godt se at ovenstående fjerner det ønskede.
Men jeg ville undgå at kopiere den ind i over 200000 rækker.

Men da jeg har været uklar med fomuleringen, giver jeg point for denne, og opretter nyt spørgsmål.

Så giv svar.

Hvad er der galt med i navnefeltet at markere B1 og herefter skrive for eksempel B1:B200000 (hvis det er der du skal have formlerne), trykke på Enter. Herefter skrive den formel jeg foreslog, holde Ctrl tasten nede og trykke på Enter.

Jeg har aldrig helt kunne forstå hvorfor man skal bruge VBA når det kan gøres hurtigere og mere enkelt med formler. Men jeg må vel overse noget.

Hans

dkhanknu>> Helt enig!

Det gør jeg også i dag.
Men det er kun en lille del af en makro, der skal køre i forvejen.

Den skal fjerne ovenstående.
Indsætte filnavn i en celle.
Indsætte 1-(antal af rækker) i en celle i første række.
Indsætte (antal af rækker)-1 i en celle i sidste række.
Printe første side ud.
Printe sidste side ud.
Gemme som csv fil.

Alt dette kan jeg gøre manuelt i dag.
Men det ville bare være nemmere. hvis jeg kunne gøre det automatisk.

Enig med dkhanknu, men hvis du alligevel skal køre en makro kan du bruge nedenstående. Den overskriver de oprindelige celler med det der står foran første komma.

Sub left()
Dim x As Integer
Dim c As Range
LastRowColA = Range("A1048576").End(xlUp).Row
For Each c In Range("A1:a" & LastRowColA)
x = InStr(1, c, ",") - 1
If x = -1 Then
Else
c = left(c, x)
End If
Next
End Sub

Hej Jens

Du har så lige svaret på mit nyoprettede spørgsmål.
Så hvis du giver et svar på:
http://www.eksperten.dk/spm/987212
Kan jeg giver dig point.

tak til jer begge to.

Kan denne formel "vendes om", så den i stedet sletter alt før kommaet?