Slette mellemrum

Skal det være en makro eller kan du nøjes med Ctrl+H for søg og erstat... tast et mellem rum i det øverste felt og ingenting i det andet felt.. Marker kolonne F inden du gør det.

Range("F1").EntireColumn.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Udmiddelbart kan jeg godt bruge din makro, men jeg glemte vist at skrive, at jeg ud over at fjerne mellemrummet, er F og G flettet. Der skal fletningen fjernes og G skal slettes.
Er det noget du også kan løse?

smartoffice_dk> Jeg har fundet en anden løsning for at ophæve fletningen vha. Kabbak:
Columns("F:G").MergeCells = False
    'Columns("G:G").Delete Shift:=xlToLeft
Men jeg kan ikke få dit til at virke nu. Der står ikke noget i alle celler, og i de celler hvor jeg vil have fjrenet mellemrummet, står der et tal i forvejen. Mellemrummet skal fjernes for at tallet bliver nummerisk.

h_s

skriv 1 i en celle, kopier cellen, marker de celler, hvor tallet, vises som tekst, højreklik, vælg indsæt specielt, vælg Multiplicer

Kabbak> Kan desværre ikke bruges, da der ikke står noget i alle rækkerner. Din løsning betyder så at der kommer til at stå "0" i de tomme celler.

Marker området og kør makroen

Public Sub Tekst_til_Tal()
    Dim C As Range
    For Each C In Selection
        If C <> "" And IsNumeric(Replace(C, " ", "", 1)) Then
            C.Value = Replace(C, " ", "", 1) * 1
        End If
    Next
End Sub

Kabbak> Den rigtige løsning for mig. Smid et svar. Jeg havde selv optaget dette:
Range("G1").Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-1],2,99)"
    Selection.AutoFill Destination:=Range("G1:G200"), Type:=xlFillDefault
    Columns("G:G").Select
    Selection.Copy
    Columns("F:F").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Men din løsning er bedre - Tak!

et svar ;-))