【[请求帮助】关于RANGE的变量问题~！！！谢谢~~~~~~~

blc1001

想把列的数据复制一下，难道下面的语句错误么，总是没有复制过去。
all = Sheet1.Range("A65536").End(xlUp).Row
Sheet2.Range("B3:B" & all) = Sheet1.Range("A3:A" & all)

而下面这样的语句，一下子就可以了

a = Sheet1.Range("A3:A" & all)
Sheet2.Range("B3:B" & all) = a

请问这个是什么道理呢？

[ 本帖最后由 blc1001 于 2009-7-5 21:59 编辑 ]

oobird

Sheet2.Range("B3:B" & all) = Sheet1.Range("A3:A" & all).value

blc1001

谢谢版主，可以了。但是我还有问题， 如果我先这样呢
a = Sheet1.Range("A3:A" & all)
b = Sheet2.Range("B3:B" & all)
b = a.value

我发现这样的话，总是提示“要求对象”

如果改为

a = Sheet1.Range("A3:A" & all)
b = Sheet2.Range("B3:B" & all)
b = a
程序没提示错误了，但是还是不能赋值过去。。。。奇怪

blc1001

奇怪了
发现这样可以

Dim a, b As Range
Set a = Sheet1.Range("A3:A" & all)
Set b = Sheet2.Range("B3:B" & all)
b= a.Value
----------------------------
但是为什么DIM只能声明上面2个RANGE变量呢，一旦我在一句DIM里面声明3个或以上RANGE变量，程序又不能赋值了。
例如Dim a, b, c As Range '多了一个c，下面的程序执行后不能赋值给b。。。。。。为什么呢

[ 本帖最后由 blc1001 于 2009-7-5 23:10 编辑 ]

赵国辉

Dim a, b, c As Range
只有c是range，其它都是变体，别的没仔细看

blc1001

晕，难道声明的时候还得
Dim a As Range
Dim b As Range
Dim c As Range
.....

假如有100个变量，那。。。。。。

blc1001

原帖由 赵国辉 于 2009-7-5 23:39 发表
Dim a, b, c As Range
只有c是range，其它都是变体，别的没仔细看

我实在很难理解，为什么只有c才是range.....

赵国辉

顾名思义
有时候越直观的东西越容易被忽视（当然不同语言、相同语言不同版本可能有所不同）
dim a,b 只定义了变量，没声明类型，只有c as range，声明了类型
大道至简，科学的东西从来不是很复杂的

blc1001

真的如果您说的是事实，那实在很不可思议。不是我爱较真，我就算用傻办法一个一个声明也可以。但是，我记得之前教过，DIM可以声明多个变量，变量之间使用“,”符号分开。

987654321

原帖由 blc1001 于 2009-7-6 09:06 发表
真的如果您说的是事实，那实在很不可思议。不是我爱较真，我就算用傻办法一个一个声明也可以。但是，我记得之前教过，DIM可以声明多个变量，变量之间使用“,”符号分开。

DIM语法格式:
Dim 变量名 [AS 数据类型],[变量名 [AS 数据类型]...]
需要注意的是:语句 Dim A，B，C  As Integer 仅说明了变量C是一个整形变量,而A B 为 Variant型。如果变量A和B也要赋值为整形，则必须用下面的语句进行说明：Dim A As Integer ，B As Integer ，C  As Integer