[转帖]【VBA入门点滴】单元格内容互换

hhzjxss

<p><font size="4">同时选中两个单元格，运行宏则内容互换！</font></p><p><font size="4">Sub ChangVal()<br/>my1value = ActiveCell.Value<br/>For Each a In Selection<br/>If a.Address &lt;&gt; ActiveCell.Address Then<br/>my2value = a.Value<br/>a.Value = my1value<br/>ActiveCell.Value = my2value<br/>End If<br/>Next a<br/>End Sub</font></p><p><font size="4">&nbsp;</font></p>

[此贴子已经被作者于2007-12-17 23:53:33编辑过]

小白杨

[em17]，技巧怎么操作呢？

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>小白杨</i>在2007-10-7 23:38:15的发言：</b><br/>[em17]，技巧怎么操作呢？</div><p></p>回格格：据我所知，只能对相临和行列进行互换，隔开的好象不能，网上搜索了一通，没看到有这个技巧！

oobird

<div class="quote" twffan="done"><b>以下是引用<i>hhzjxss</i>在2007-10-7 23:40:34的发言：</b><br/><div class="quote" twffan="done"><b>以下是引用<i>小白杨</i>在2007-10-7 23:38:15的发言：</b><br/>[em17]，技巧怎么操作呢？</div><p></p>回格格：据我所知，只能对相临和行列进行互换，隔开的好象不能，网上搜索了一通，没看到有这个技巧！</div><p></p><p>沒限制吧？你只要选中两个单元格运行程序就可互换了。不过可简单些：</p><p>Sub ChangVal()<br/>With Selection<br/>a = .Areas(1).Value<br/>b = .Areas(2).Value<br/>.Areas(1) = b<br/>.Areas(2) = a<br/>End With<br/>End Sub<br/></p>

sanbe

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>小白杨</i>在2007-10-7 23:38:15的发言：</b><br/>[em17]，技巧怎么操作呢？</div><p>打开剪贴板,爱怎么转就怎么转</p>[em01][em01]

游龙

学习

龙井

kankan

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>sanbe</i>在2007-10-8 0:54:18的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>小白杨</i>在2007-10-7 23:38:15的发言：</b><br/>[em17]，技巧怎么操作呢？</div><p>打开剪贴板,爱怎么转就怎么转</p>[em01][em01]</div><p><font size="4">怎么搞，来一个动画吧！</font></p>

hhzjxss

哦，戏子是说，先多剪几次，然后就可以一停地贴了，这个也不是很方便！

djyjysxxs

4楼的高！简洁明了！单元格或区域都行！稍作扩展（或写成自定义函数），可以对多个区域想怎么转就怎么转。