菜鸟提问<em>excel</em>中在<em>vba</em>中如何表

假设把 sheet1 中A1单元格赋值给X变量，语句如下：
X = sheets(1).range("A1")
假设X经过计算后，得到一个变量值Y，那么把Y赋值给A1，语句为：
sheets(1).range("A1")=Y
这样就实现了单元格与变量之间的相互赋值

关于此例中涉及到的VBA中变量的相关知识：
1、什么是变量

变量是一个命名的内存位置。是在程序或代码运行过程中，用于临时存储数据，并且其存储的数据可以7a64e78988e69d83363根据需要发生改变的一个命名项目。
变量由名称(变量名)和数据类型指定：
变量名——用来引用变量
数据类型——确定变量所能存储信息的种类以及所占存储空间的大小
2、变量的命名规则
（1）名称是由字母(A-Z，a-z)或数字和下划线“_”的任意组合。(在Excel 2002以后的版本中也可以包含中文)；最后一个字符可以是类型说明符；
（2）变量名的长度不得超过255个字符
（3）变量名在有效的范围内必须是唯一的。有效的范围就是引用变量可以被程序识别的作用范围 例如一个过程、一个窗体等等；
（4）变量名不能是VBA中的保留字（关键字），也不能是末尾带类型说明符的保留字，但可以把保留字嵌入变量名。
说明：
（1）变量名是不区分大小写的。如ABC、aBc、abc等都是一样的；
（2）定义和使用变量时，通常要把变量名定义为容易使用阅读和能够描述所含数据用处的名称；
（3）根据需要混合使用大小写字母和数字。如果需要使用多单词组，变量中每个单词的第一个字母大写，例如：DataTemp表示临时数据，也可以两个单词中下划线分隔，例如：Last_Num；
（4）对于变量名也有更好的建议，每个变量名以两个或三个字符缩写开始，这些字符缩写对应于变量要存储数据的数据类型。例如strWorksheet as string表用来示工作表名，前缀str表示当前变量的类型。

color1=countcolor(sheets("工作表1").range("c1"),sheets("工作表2").range("a1:c9"))

一定要用VBA 么， 一个简单的公式zd 比VBA 更快， VBA 需要用循环来判断

公式本身 就是专 内置的程序， 会比 VBA 快， 当然 ，也不是什么麻烦事:

B1:

=IF(ISNUMBER(LOOKUP(,-FIND(OFFSET($G$1,,,COUNTA(G:G)),A2))),"是","否")

代码也给你写个：  没测试属，应该问题不大， 不明白 可  +

sub xxx()
  for  i=1 to range("A65536").end(xlup).row
        cells(i,"B")="否"
     for j=1 to range("G65536").end(xlup).row
       if instr(1,cells(i,"A"),cells(j,"G"))>0 then 
          cells(i,"B")="是"
        exit for
       end if
    next
  next
end Sub

可以用 offset来表示：
表示左边的单元zhidao： ActiveCell.Offset(0,-1)
表示右边的单元： ActiveCell.Offset(0,1)
表示上边的单元： ActiveCell.Offset(-1,0)
表示下边的单元： ActiveCell.Offset(1,0)
一般以 Cells(行号,列号).Offset(行偏移,列偏移) 或 ActiveCell.Offset(行偏移,列偏移)表示某专个单元或当前单元的位移量。以指定单元或当前单元为准属，偏移量1，表示行向下或列向右偏移1行（列）；偏移量-1，表示行向上或列向左偏移1行（列）。