Question

excel VBA代码的作用？

Sub asf()
With Sheets("Sheet1")
.Range("班级").Offset(9, 0) = .Range("班级") '这句好像什么也没做啊
.Range("班级").Offset(9, 0) = .Range("班级").Value‘这句把数据赋值过去了
End With
End Sub
问：.Range("班级").Offset(9, 0) = .Range("班级")'这句好像什么也没做啊
这句代码到底做了些什么？.Value不是默认值吗。
试下这个，你们没一个答好啊
Sub Macro1()'
' Macro1 Macro
' 宏由 User 录制，时间: 2014-10-23
Range("A1:A6") = Range("B1:B6")
Range("A1:A6") = Range("B1:B6").Value
End Sub
结果是Range("A1:A6") = Range("B1:B6") 这句好像什么也没做啊，边框线，填充色也没过去，数据也没过去啊。
Range("A1:A6") = Range("B1:B6").Value 这个只过去了数据，比如“1，2，3，4，5，6”
问：1、Range("A1:A6") = Range("B1:B6")这句到底做了些什么？
2、 Range("A1:A6") = Range("B1:B5").Value 加个空值
“Range("B1:B5").Value 加个空值”这右边部分代码怎么写啊。为的是凑齐6个值，省得Range("A1:A6")第6个值变成了#N/A。

Answer 1

实际作用是：
设置Sheet1中，把名称为”班级“的单元格区域，复制到偏移9行的新单元格区域（含格式、值）

关于.Range("班级").Offset(9, 0) = .Range("班级").Value‘这句，
如果Range("班级")只有一个单元格，不会有问题，否则会报错的。
如果不报错，即把新单元格区域的值，统一设置为Range("班级")单元格的值。

Answer 2

因为“班级”是个名称，所以range("班级")的默认属性是“对象”，不是值。
如果直接用区域，比如range("a1:a3"),它的默认属性就是“值”了。

Answer 3

我想应该是范围赋值，将.Range("班级") 的范围赋值到其下第9行的位置。

可以分两句写呀：range("a1:a5")=range("b1:b5") 的range("a6")=""

Answer 4

类似格式刷的作用吧

Answer 5

两句一样的作用，就是将名称为“班级”的单元格数据赋值到往下9行对应的单元格。
因为Value 是单元格的默认属性，前一句省略了这个默认属性，所以与后一句完全一样的效果。
补充回答：Value 是单元格的默认属性，对单个单元格有效，如果是单元格区域，就不能省略Value
1、Range("A1:A6") = Range("B1:B6")，这句实际上起到清空Range("A1:A6")的作用。
2、Range("A1:A6") = Range("B1:B5").Value 加个空值。只能分成两句写：

Range("A1:A5") = Range("B1:B5").Value
Range("A6").ClearContents

追问

Range("A1:A6") 改成名称怎么分两句啊，为啥这句实际上起到清空Range("A1:A6")的作用呢？

追答

如果是名称代表单元格区域，可用编号引用具体某单元格。比如 Range("A1:A6")为“班级” ，共6个单元格，A6是第6个，也是最后一个，A6就可用 Range("班级")(6) 代替（第6个），也可用 Range("班级")( Range("班级") .count) 代替（最后一个）
Range("班级") = Range("B1:B5").Value
Range("班级")(6).ClearContents
第二个问题不知怎样解释