edit values in cells - without ASAP

[steallan]

Hi

Anyone tell me a way to edit the data in cells?

I've got various entries and need to delete part of what is entered, but I dont have ASAP utlities installed and no admin rights

Delete all after nth character is basically what i'm trying to replicate, or something that would find a specific char and then delete everything after that char, or delete a number of the last char in a cell range etc etc

Replace wont work though, unless there's commands I dont know you can write in

I've got entries like 345-+4 and im trying to get rid of the -+4

Any help would be really great

Thanks

Ste

 

[venkat1926]

suppose data like this in colmn A from A1 down

Sheet1

*	A
1	345+-89
2	123+-56

<colgroup><col style="font-weight:bold; width:30px; "><col style="width:64px;"></colgroup><tbody>
</tbody>

Excel tables to the web >> Excel Jeanie HTML 4

copy mthis data in sheet 2 lso to preserve your original data. you can have more rows.

now try this macro

Sub test()
Dim r As Range, c As Range
Worksheets("sheet1").Activate
Set r = Range(Range("A1"), Cells(Rows.Count, "A").End(xlUp))
For Each c In r
Dim j As Integer, k As Integer
j = Len(c)
For k = 1 To j
If Not IsNumeric(Mid(c, k, 1)) Then
c = Left(c, k - 1)


GoTo nextc
End If
Next k
nextc:
Next c




End Sub