Macro to remove squares from cells

  • Thread starter Thread starter Alonso
  • Start date Start date
A

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!
 
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!
Click to expand...
try

SUB noshapes()
for each sh in activesheet.shapes
sh.cut
next
end sub
 
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!
Click to expand...

OR
select cells(square in upper left)>f5>special>shapes>cut
 
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!
Click to expand...
try

SUB noshapes()
for each sh in activesheet.shapes
sh.cut
next
end sub
 
Don Guillett brought next idea :
OR
select cells(square in upper left)>f5>special>shapes>cut
Click to expand...

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?
 
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
 
Gord said:
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
Click to expand...
-----------

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.
 
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
 
Back
Top