http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FRange_Copy_Cut_Paste 2026-04-07T07:06:36Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Range_Copy_Cut_Paste&diff=1536&oldid=prev 2010-05-26T16:33:00Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr style="vertical-align: top;" lang="ru"> <td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td> <td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td> </tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div> </td></tr></table>

http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Range_Copy_Cut_Paste&diff=1537&oldid=prev 2010-05-26T12:47:24Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==Copy a range==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CopyRange2()<br /> range(&quot;A1:A12&quot;).Copy range(&quot;C1&quot;)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Copying a variably sized range==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CopyCurrentRegion2()<br /> range(&quot;A1&quot;).CurrentRegion.Copy Sheets(&quot;Sheet2&quot;).range(&quot;A1&quot;)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Copy method can use an argument for the destination range==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CopyCurrentRegion2()<br /> Range(&quot;A1&quot;).CurrentRegion.Copy Sheets(&quot;Sheet1&quot;).Range(&quot;A1&quot;)<br /> Application.CutCopyMode = False<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Copy method can use an argument that represents the destination for the copied range.==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CopyRange()<br /> range(&quot;A1&quot;).Copy range(&quot;B1&quot;)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Copy method has one argument - the destination range for the copy operation==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CopyOne()<br /> Worksheets(&quot;Sheet1&quot;).Activate<br /> range(&quot;A1&quot;).Copy range(&quot;B1&quot;)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Moving a range==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub MoveRange1()<br /> range(&quot;A1:C6&quot;).Cut range(&quot;A10&quot;)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Moving a range: move a range by cutting it to the Clipboard and then pasting it in another area==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub MoveRange()<br /> Range(&quot;A1:C6&quot;).Select<br /> Selection.Cut<br /> Range(&quot;A10&quot;).Select<br /> ActiveSheet.Paste<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==The Copy and Paste methods==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CopyRange()<br /> range(&quot;A1:A12&quot;).Select<br /> Selection.Copy<br /> range(&quot;C1&quot;).Select<br /> ActiveSheet.Paste<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==To copy a range to a different worksheet or workbook, simply qualify the range reference for the destination.==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub CopyRange2()<br /> Workbooks(&quot;File1.xls&quot;).Sheets(&quot;Sheet1&quot;).range(&quot;A1&quot;).Copy Workbooks(&quot;File2.xls&quot;).Sheets(&quot;Sheet2&quot;).range(&quot;A1&quot;)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==You can move a range with a single VBA statement==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub MoveRange2()<br /> Range(&quot;A1:C6&quot;).Cut Range(&quot;A10&quot;)<br /> End Sub<br /> &lt;/source&gt;</div>

Admin