作者：乔山办公网日期：
返回目录：excel表格制作
假设把 sheet1 中A1单元格赋值给X变量，语句如下：
X = sheets(1).range("A1")
假设X经过计算后，得到一个变量值Y，那么把Y赋值给A1，语句为：
sheets(1).range("A1")=Y
这样就实现了单元格与变量之间的相互赋值
关于此例中涉及到的VBA中变量的相关知识：
1、什么是变量
变量是一个命名的内存位置。是在程序或代码运行过程中，用于临时存储数据，并且其存储的数据可以根据需要发生改变的一个命名项目。
变量由名称(变量名)和数据类型指定：
变量名——用来引用变量
数据类型——确定变量所能存储信息的种类以及所占存储空间的大小
2、变量的命名规则
（1）名称是由字母(A-Z，a-z)或数字和下划线“_”的任意组合。(在Excel 2002以后的版本中也可以包含中文)；最后一个字符可以是类型说明符；
（2）变量名的长度不得超过255个字符
（3）变量名在有效的范围内必须是唯一的。有效的范围就是引用变量可以被程序识别的作用范围 例如一个过程、一个窗体等等；
（4）变量名不能是VBA中的保留字（关键字），也不能是末尾636f7079e799bee5baa6e997aee7ad94363带类型说明符的保留字，但可以把保留字嵌入变量名。
说明：
（1）变量名是不区分大小写的。如ABC、aBc、abc等都是一样的；
（2）定义和使用变量时，通常要把变量名定义为容易使用阅读和能够描述所含数据用处的名称；
（3）根据需要混合使用大小写字母和数字。如果需要使用多单词组，变量中每个单词的第一个字母大写，例如：DataTemp表示临时数据，也可以两个单词中下划线分隔，例如：Last_Num；
（4）对于变量名也有更好的建议，每个变量名以两个或三个字符缩写开始，这些字符缩写对应于变量要存储数据的数据类型。例如strWorksheet as string表用来示工作表名，前缀str表示当前变量的类型。
你好：e799bee5baa6e997aee7ad94e59b9ee7ad94366
一、同表引用：
根据公式所在单元格的位置发生变化时，单元格引用的变化情况，我们可以引用分为相对引用、绝对引用和混合引用三种类型。以存放在F2单元格中的公式“=SUM(A2:E2)”为例，当公式由F2单元格复制到F3单元格以后，公式中的引用也会变化为“=SUM(A3:E3)”。若公式自F列向下继续复制，“行标”每增加1行，公式中的行标也自动加1。 如果上述公式改为“=SUM($A $3:$E ＄3)”，则无论公式复制到何处，其引用的位置始终是“A3:E3”区域。 混合引用有“绝对列和相对行”，或是“绝对行和相对列”两种形式。前者如“=SUM($A3:$E3)”，后者如“=SUM(A$3:E$3)”。
二、不同工作表引用：
假如公式放在工作表Sheet1的C6单元格，要引用工作表Sheet2的“A1:A6”和Sheet3的“B2:B9”区域进行求和运算，则公式中的引用形式“=SUM(Sheet2!A1:A6,Sheet3!B2:B9)”。也就是说三维引用中不仅包含单元格或区域引用，还要在前面加上带“!”的工作表名称。
三、引用不同工作簿：
如工作簿Book1中的SUM函数要绝对引用工作簿Book2中的数据，其公式为
“=SUM([Book2]Sheet1! SA S1: SA S8,[Book2]Sheet2! SB S1: SB S9)”，也就是在原来单元格引用的前面加上“[Book2]Sheet1!”。放在中括号里面的是工作簿名称，带“!”的则是其中的工作表名称。即是跨工作簿引用单元格或区域时，引用对象的前面必须用“!”作为工作表分隔符，再用中括号作为工作簿分隔符。不过三维引用的要受到较多的限制,例如不能使用数组公式等.。
希望对你有底帮助！
看不明白你的代码，你还不如把你要做的事情说出来，让人家帮你写代码
1、首先打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub test2()Worksheets("Sheet1").Range("A1").Value =
_Worksheets("Sheet1").Range("A5").ValueMsgBox "现在A1单元格中的值也为" &
_Worksheets("Sheet1").Range("A5").ValueEnd Sub
3、可以看到这里指定了中名为sheet1的工作表，并使用了range选取了a1单元格，选择单元格值的属性e68a84e799bee5baa6332。换个方式说就是sheet1中a1单元格是对象，value值是属性。
4、这里有个下划线，在vba中是作为连接符存在的，意思是下一行的代码是链接到本行代码后，不是中断的语句。
5、使用msgbox函数来显示一段信息，提示a1的单元格值为，后面链接了a5单元格的值，其实因为前面有赋值，所以这里直接写a1单元格的值也是可以的。
6、因为这里的对象很统一，所以代码我们可以用with简写，那么我们只用写一个with语句像下面这样With Worksheets("sheet1")
.Range("A1").Value = _
.Range("A5").Value
MsgBox "现在A1单元格中的值也为" & _
.Range("A5").Value
End With。
7、可以看到代码运行成功，a1和a5单元格内的值一样，证明赋值成功。
8、