VBA:值传递和引用传递

之前写的几篇关于VBA的文章时，处理的只是单一一个单元格，虽然对象是Range。不过今天发现，还需要处理同行相邻多个单元格，于是想，可否把这几个相邻的单元格一起copy到另一张excel表中。

当前A excel表中有：月租、通信费、信息费，分别位于AF\AG\AH列，存放的数据分别是广东省各个地市的。现在Ricki需要把属于某个地市的月租、通信费、信息费copy到B excel表相应地市中，B表中月租、通信费、信息费，分别位于C\D\E列。（其中A表中的地市排序和B表中的地市排序是不一样的）。

其中，使用如下代码会有问题：

   For Row = 9 To 29 Step 1
    If Range("B" & Row).Value = "广州" Then
    Range("AF" & Row & ":AH" & Row).Select
    Exit For
    End If
   Next Row   
   'Selection.Value = Selection.Value / 10000 *'号是注释
   For Each c In Selection.Value
   c= c/ 10000
   Next c
   Selection.Copy
   ...
   Range("C5:E5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

其中的Selection.PasteSpecial因为源数据是公式，而不是数据，所以使用选择性粘贴。
上面代码出现的问题是，B表中的数据和A表中的数据是一样的，即没有除以10000，调试后发现，代码中的c只是一个值传递，不是对象(这也跟Selection.Value有关)，并不是引用传递，改为下面的代码，就可以了：

For Each cell In Range("AF" & Row & ":AH" & Row)
    cell.Value = cell.Value / 10000
    Next cell

代码中的cell是一个对象，也是引用传递。由于是引用传递，因此它会改变源表A中的数值，所以在结尾，使用ActiveWindow.Close SaveChanges:=False，表示不保存修改后的数据。

有空的话，欢迎到[url=http://hongfanshu.blogbus.com/]红番薯[/url]逛逛