Macro to remove squares from cells

[Alonso]

1. after conversion pdf document to xls file, there is a small square
symbol(tab) in many cells inside this excel file: how to remove it all at
once? (with some option or via macro). Excel 2003.


2. how to join a few excel sheet (inside one excel file) into one sheet?
(table with data was splitted into few worksheets)

thank you!

 

[Don Guillett]

1. after conversion pdf document to xls file, there is a small square
symbol(tab) in many cells inside this excel file: how to remove it all at
once? (with some option or via macro). Excel 2003.

2. how to join a few excel sheet (inside one excel file) into one sheet?
(table with data was splitted into few worksheets)

 thank you!

try

SUB noshapes()
for each sh in activesheet.shapes
sh.cut
next
end sub

 

[Don Guillett]

1. after conversion pdf document to xls file, there is a small square
symbol(tab) in many cells inside this excel file: how to remove it all at
once? (with some option or via macro). Excel 2003.

2. how to join a few excel sheet (inside one excel file) into one sheet?
(table with data was splitted into few worksheets)

 thank you!

OR
select cells(square in upper left)>f5>special>shapes>cut

 

[Alonso]

1. after conversion pdf document to xls file, there is a small square
symbol(tab) in many cells inside this excel file: how to remove it all at
once? (with some option or via macro). Excel 2003.

2. how to join a few excel sheet (inside one excel file) into one sheet?
(table with data was splitted into few worksheets)

thank you!

try

SUB noshapes()
for each sh in activesheet.shapes
sh.cut
next
end sub

 

[GS]

Don Guillett brought next idea :

OR
select cells(square in upper left)>f5>special>shapes>cut

Don,
I believe what's happening is the paste of the PDF contents is
including 'printable' characters for CR, LF, Tab. These will be text,
no?

 

[Gord]

1. Assuming you mean Tab chars in-cell.

Sub Remove_Tabs()
With Selection
.Replace what:=Chr(9), replacement:=Chr(32), _
lookat:=xlPart, SearchOrder:=xlByRows,
MatchCase:=False
End With
End Sub

2. Would depend upon the layout of the sheets.


Gord Dibben Microsoft Excel MVP

 

[Alonso]

1. Assuming you mean Tab chars in-cell.

Sub Remove_Tabs()
With Selection
.Replace what:=Chr(9), replacement:=Chr(32), _
lookat:=xlPart, SearchOrder:=xlByRows,
MatchCase:=False
End With
End Sub

2. Would depend upon the layout of the sheets.


Gord Dibben Microsoft Excel MVP

-----------

1. not work, compile error.
here is pic what I mean:
http://img843.imageshack.us/img843/6837/shapesr.jpg

how to remove squares with default excel options(preferable), or formula, or
macro(simple)?

2.What is simple formula (not macro) to merge four excel worksheets into one
work sheet(continious data) with one click?

Thank you.

 

[Gord]

1. compile error because of line-wrap. Try again with this.

Sub Remove_Tabs()
With Selection
.Replace what:=Chr(9), replacement:=Chr(32), _
lookat:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False
End With
End Sub

2. Depends upon the layout of the sheets.


Gord