View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
david mcritchie david mcritchie is offline
external usenet poster
 
Posts: 691
Default Deleting all HTML coding while keeping text

Hi Helen,
Is everything in one column, and if so does it belong in
one column. What version of Excel, and how did you
you create this in the first place.

If you copied and pasted from HTML into Excel with
Excel 2000 and above, and possibly Excel 97, you
wouldn't see HTML code in your cells.

Try this on a copy of your spreadsheet.

Sub Remove_HTML()
'David McRitchie, programming, 2004-04-13
'--http://google.com/groups?threadm=1ae2d01c41f37%2443ffb3b0%24a401280a @phx.gbl

Dim cell As Range, cellx As String, Rng As Range
Dim i As Long, j As Long
Set Rng = Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
If Rng Is Nothing Then Exit Sub
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
For Each cell In Rng
cellx = cell.Value
redo:
For i = 1 To Len(cellx)
If Mid(cellx, i, 1) = "<" Then
For j = i + 1 To Len(cellx)
If Mid(cellx, j, 1) = "" Then
cellx = Left(cellx, i - 1) & Mid(cellx, j + 1)
GoTo redo
End If
Next j
End If
Next i
cell.Value = Replace(cellx, "&nbsp;", " ")
Next cell
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

To install and use a macro see Getting Started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Helen" wrote in message ...
Is there a way to delete all HTML commands in a cell (ex.
BR, TABLE, FONT) while keeping the text that it affects? I
have 3000 rows with product descriptions, most of which
include HTML, that I must convert into a text only
description.