两个工作表单元格区域赋值的问题

wangxf9209

我有一段代码，总体意思是，利用循环将sheet1的C列不同的内容分别添加到以该内容为表名的工作表中，其中一句是
Sheets(Cells(I, 3).Value).Range("A65536").End(3).Offset(1).Resize(1, 6) = Sheets("sheet1").Cells(I, 1).Resize(1, 6).Value  
该代码如果放到工作表sheet1的代码窗口中时，此句可正常执行，但是如果代码放到模块中，此句前边就必须加一句sheet1.Activate，因为此前有代码新增工作表，sheet1就不是活动工作表了。
我的疑惑就是，为什么代码放到模块里就要激活sheet1？
但是我在模块里测试下面的代码，不论哪个是活动工作表，都可以取到值。
Sub test()
    Sheets("sheet2").[D1:E1] = Sheets("sheet1").[D1:E1].Value
End Sub
请各位老师解惑！

07241

首先，我也不清楚为什么，但另一方面，我认为写vba的时候，不写dim的估计大有人在，比如我就经常是不写或者乱写dim的，但没人敢冒险不写激活工作表语句的吧，不写dim大不了程序跑不起来，不激活工作表，数据取错问题就大了。

wangxf9209

07241 发表于 2014-3-26 20:47
首先，我也不清楚为什么，但另一方面，我认为写vba的时候，不写dim的估计大有人在，比如我就经常是不写或者 ...

是啊，VBA的有些脾气还真难摸，比如说RANGE的VALUE属性,RANGE("A2")=RANGE("A1")可以，但是RANGE("A2:B2")=RANGE("A1:B1").Value，后边的就必须加上VALUE，所以最好任何时候都加上。

jbjbzjb

wangxf9209 发表于 2014-3-26 21:06
是啊，VBA的有些脾气还真难摸，比如说RANGE的VALUE属性,RANGE("A2")=RANGE("A1")可以，但是RANGE("A2:B2" ...

评：因噎废食。既然知道了直接拿Range赋值给Range时，后者必须点明Value属性，往后记住就是了，这样的情况少之又少（若要我举出几个，一时还真举不出来，由此可见其极少）。

主归正传：Sheets(Cells(I, 3).Value)必须为Sheets(Sheet1.Cells(I, 3).Value)

评：代码逻辑不严密导致；With结构不使用导致；思维不细致、不周到导致！

wangxf9209

jbjbzjb 发表于 2014-3-26 21:35
评：因噎废食。既然知道了直接拿Range赋值给Range时，后者必须点明Value属性，往后记住就是了，这样的情况 ...

老师批评的太对了，谢谢！

jbjbzjb

wangxf9209 发表于 2014-3-26 22:27
老师批评的太对了，谢谢！

既然接受意见，那就再跟个帖：
Sheets(Cells(I, 3).Value)必须为Sheets(Sheet1.Cells(I, 3).Value)
其实也不严密，.Value是因噎废食就不提了，但Cells(I,3)的值若为阿拉伯数字会怎样（您不要跟我说您的Sheet1表格中的第3列内容是英文或汉字，不可能是阿拉伯数字）？所以，应该用Sheets(Cstr(Sheet1.Cells(i,3)))的描述方法，事实上，我对此种写法很反感，为什么就不能用个变量来表述呢？一个变量能占用多大内存空间啊！

Dim theShtName$
theShtName=Sheet1.Cells(i,3)
Sheets(theShtName)。。。。。。。

瞧，代码的逻辑即严谨，又清晰（不考虑theShtName值为空以及theShtName工作表不存在的情况，至少在本例中，那样考虑有点鸡蛋里挑骨头了）。

wangxf9209

jbjbzjb 发表于 2014-3-26 22:38
既然接受意见，那就再跟个帖：
Sheets(Cells(I, 3).Value)必须为Sheets(Sheet1.Cells(I, 3).Value)
其实 ...

非常感谢老师指点！受益匪浅啊。

ligong

正在写入大脑。。。