Hi, assuming that your data is in A2: ??2 and that you want it pasted in A1:
??1, try the following (adjusted to fit your data's location):
Sub TextSplit()
Dim Cell As Range
For Each Cell In Range("A2:" & Cells(2, Columns.Count).End(xlToLeft).Address)
Cell.Offset(-1, 0).Value = Split(Cell.Value, "_")(0)
Next Cell
End Sub
Hope this helps, but without seeing more detail (your code would be helpful)
I can't be more specific. This code will select just the data to the left of
the "_". If you want the data to the right ("BBBBB" from "AAAAA_BBBBB") then
substitute a 1 for the 0.
"Ksenija" wrote:
> Hi again,
> sorry, I can't make it work...
>
> the thing is, I am trying to put this in a loop så it goes thrue a lot of
> cells, så I can't specify which exact cell I am in (A1 etc)..
>
> so I don't really knom how to make
>
> Split(Range("A1"),"_")(0),
>
> work...
>
>
>
> "Jacob Skaria" wrote:
>
> > If you are looking for a fomula try the below
> > =LEFT(A1,FIND("_",A1)-1)
> >
> > If you are looking for a VBA code; try
> >
> > Split(Range("A1"),"_")(0)
> >
> > or
> >
> > Dim strData as String
> > strData = "AAAAA_BBBBB"
> > Msgbox Split(strData,"_")(0)
> >
> > "Ksenija" wrote:
> >
> > > Can someone help me? If I have a text saying "AAAAA_BBBBB" in a cell, how can
> > > I write a code that copies the text in front of "_" and pastes it in a cell
> > > above????
> > >
> > > So I have "AAAAA_BBBBB" and want to have AAAAA pasted in a cell above..
|
Similar Threads
