Copying two-line cell WITH column width auto-adjustment?

Assume I have a cell with a column width of lets say 15 centimeters and a row high of two lines.
The content of this cell are two text lines separated by a newline/Carriage return like


blah blah blah 12345 foo bar
next, second line text


Now I mark this cell and choose "copy" from context menu. A dotted line appears around the cell indicating that the cell content is copied into clipboard. Fine.

Now I switch to another worksheet, put the cursor in one of the (standard formatted) cells and select "Paste" from context menu.

The content is copied BUT:
the column width stay as before. This in turn causes the row height to increase to more than two lines. It looks similar to


blah
blah
blah
12345
foo bar
next,
second
line
text

How can I let Excel auto-adjust the column width according to the source column width? ....and prevent row height adjustment?

BTW: This solution should work as well if I select a whole region with different cell/columns widths.

Related question: Assume I want to achieve this not by manually, visual copy&paste but from VBA macro.
How should a macro command look like which pay attention to this auto-adjustment?

Peter

Not sure where you want to copy to but let's assume you want to select the cell of your choosing and paste to a given cell f1

This will take your selection , copy it then set the column width to the same as the cell you copied from. You shouldn't need to worry about the cell hieghts but if you do you can use the same syntax

Please Login or Register  to view this content.

Is this a bug?

Not as far as I know. I have no idea why neither column width nor row height are not included in the "PasteSpecial Paste All"
As for copying using VBA perhaps this example will explain it a bit better

Please Login or Register  to view this content.

The command "xlPasteValues" will paste "bold" , "Italics" or "Underline" if the Copy from cell contains any of these settings. You could also use

Please Login or Register  to view this content.

but to get the column width you must add the "PasteSpecial xlPasteColumnWidths" command.
Another useful comand is the

Please Login or Register  to view this content.

This will set the "right" column width on all columns that contain a value.
Alf