<script>

layui.use('table', function(){
  var table = layui.table;
  table.render({
    elem: '#test'
    ,url:'/classdata.php'
    ,cellMinWidth: 80 //全局定义常规单元格的最小宽度，layui 2.2.1 新增
    ,page: { //支持传入 laypage 组件的所有参数（某些参数除外，如：jump/elem） - 详见文档
      layout: ['limit', 'count', 'prev', 'page', 'next', 'skip'] //自定义分页布局
      //,curr: 5 //设定初始在第 5 页
      ,groups: 1 //只显示 1 个连续页码
      ,first: false //不显示首页
      ,last: false //不显示尾页
      
    }
    ,cols: [[
      {field:'id', width:80, title: 'ID', sort: true}
      ,{field:'columnname', width:80, title: '字段名'}
      ,{field:'descriptionCN', width:80, title: '中文描述', sort: true}
      ,{field:'name', width:80, title: '名称'}
      ,{field:'description_table', title: '表描述', minWidth: 100} //minWidth：局部定义当前单元格的最小宽度，layui 2.2.1 新增
      ,{field:'description', title: '字段类型'}
      ,{field:'primaryKey', title: '主键'}
      ,{field:'class', title: '分类'}
      ,{field:'checkclass', title: '用户标注','edit':'text'}
      ,{field:'reason',  title: '标注理由','edit':'text'}
    ]]
  });

  //监听单元格编辑
  table.on('edit(test)', function(obj){
    var value = obj.value //得到修改后的值
    ,data = obj.data //得到所在行所有键值
    ,field = obj.field; //得到字段

    if(value){
      $.post('doclass.php',{'id':data.id,'field':field,'value':value},function(data){
            console.log(data)
          data = $.parseJSON(data); 
          if(data.status == 1){
            layer.msg('修改成功,请等待管理员的审核');
            location.href=location.href;
          }else{
            layer.msg(data.msg);
          }

      })
    }
  });


 
});
</script>

在表格初始化的时候加上 'edit':'text' 就可以编辑

然后再添加一个监听的单元格事件

Range.Merge 方法：由指定的Range对象创建合并单元格

（一）对选择的区域进行合并

Sub 合并单元格()

       Selection.Merge              '对选中的单元格区域执行此段代码，进行合并，仅保留左上角值

End Sub

**********************

（二）对相同相邻单元格进行合并

原料如下：

部门
			
职工
			
职级
		
1部门
			
张小跳
			
5
		
1部门
			
李大刀
			
7
		
1部门
			
王老虎
			
8
		
1部门
			
陈麻子
			
6
		
2部门
			
董小花
			
9
		
2部门
			
马大海
			
10
		
2部门
			
胡斑马
			
8
		
2部门
			
赵小鱼
			
4
		
3部门
			
魏小跑
			
9
		
3部门
			
于大脑
			
10
		
3部门
			
罗青蛙
			
8
		
3部门
			
刘兔子
			
4
		
Sub 合并单元格实例()        

Dim er%, rng%, rg As Range             '定义变量

Application.DisplayAlerts = False       '关掉提示窗口，其内容是“仅保留左上角单元格值”

er = Application.CountA([a:a])            '数出A列的非空单元格，我们这里是14个

For rng = er To 2 Step -1                    '执行从第14行到第2行，以-1为步长的循环

       Set rg = Range("a" & rng)            'a14单元格对象赋给rg，那rg就变成了单元格对象

       If rg = rg.Offset(-1) Then rg.Offset(-1).Resize(2).Merge   

'判断a14单元格，如果该单元格=向上偏移一格的值，那么扩展最后一个单元格的尺寸为2，也就是a13到a14的合并。

'在下一个循环里，判断a13单元格是否等于向上偏移一格的值(a12)，逐一合并单元格，这里a13（连着a14）要和a12合并。

Next

Application.DisplayAlerts = True

End Sub

执行代码后的效果如下：

部门
			
职工
			
职级
		
1部门
			
张小跳
			
5
		
李大刀
			
7
		
王老虎
			
8
		
陈麻子
			
6
		
2部门
			
董小花
			
9
		
马大海
			
10
		
胡斑马
			
8
		
赵小鱼
			
4
		
3部门
			
魏小跑
			
9
		
于大脑
			
10
		
罗青蛙
			
8
		
刘兔子
			
4
		
VBA也太好用了叭！

（三）取消合并单元格并保留原来的数据

与合并单元格有关的属性

Range.MergeArea 属性：返回的是一个Range对象，该对象代表包含指定单元格的合并区域。

Range.UnMerge 方法：取消合并单元格，将合并区域分解为独立的单元格

Sub test()

a = Range("a1").MergeArea.Count       '与a1单元格合并在一起的单元格个数，包括 a1 在内哦。

[a1].UnMerge                                         '取消合并a1单元格

End Sub

举个小栗子叭，如下表所示，原始表格里a1、a2、a3单元格都合并在一起了，所以这里的 a = 3.

 
			
A
			
B
		
1
			
1
			
2
		
2
			
2
		
3
			
2
		
Sub 取消单元格合并后保留原来的数据()

Dim b%, ad$, rng As Range                '声明变量

       For Each rng In Selection             '对于选中的每一个单元格范围进行一个循环

       ad = rng.Address                          '循环的第一个单元格地址是a2

       b = rng.MergeArea.Count             '计算出来与a2合并在一起的单元格一共有4个

       rng.UnMerge                                 '取消与a2单元格合并的区域

       rng.Resize(b) = rng                       '取出取消合并后单元格行数，此处为5，将变量rng的值全部赋给这5行

       Next

End Sub

把这段代码执行到【部门-职工-职级】的工作表内（先选中第一列的这14行单元格再执行代码），运行后效果如下：

部门
			
职工
			
职级
		
1部门
			
张小跳
			
5
		
1部门
			
李大刀
			
7
		
1部门
			
王老虎
			
8
		
1部门
			
陈麻子
			
6
		
2部门
			
董小花
			
9
		
2部门
			
马大海
			
10
		
2部门
			
胡斑马
			
8
		
2部门
			
赵小鱼
			
4
		
3部门
			
魏小跑
			
9
		
3部门
			
于大脑
			
10
		
3部门
			
罗青蛙
			
8
		
3部门
			
刘兔子
			
4
		
周五快乐朋友们！

比如我在Sheet2中定义了几个数据，这些都是简单的数字，而在Sheet1中让要被绑定的单元格等于Sheet2的对应单元格地址（比如Sheet2!B1,Sheet2!B2之类的）

		

 
然后就可以一改全改了。但是我还要对当前的Sheet1设置只读（Sheet1只能被动的同步，只能在Sheet2中修改数据），则先全选当前工作簿，然后设置单元格格式，取消勾选"锁定"。

		

 
然后选中要保护的单元格，勾选锁定选项。

		

 
在工具中，选择保护工作表，然后只勾选下面两项，点击确定。然后就除了你框选的区域被保护了，别的区域都没有被保护，可以编辑，而被框选的区域不可编辑，但是还是可以通过另一个工作簿的数据更新。

		

 
如果你要引用别的Excel文件中的工作薄，则格式大致为：='[文件名称.xls]sheet2'!B3，如果要引用别的几个Excel文件的工作簿的和或者差等，则格式大致为：='[文件名称.xls]sheet2'!B3+='[文件名称.xls]sheet4'!C5
		

从上一篇文章我们已经可以获取某单元格的数据，现在我们只要执行：MsgBox VarType(curCell)就可以获取到类型，完整代码如下：
Sub Macro1()
'
' Macro1 Macro
' 宏由 cq 录制，时间: 2016/08/02
x = Sheets("Sheet1").[a5]
MsgBox VarType(curCell)
End Sub


我们会在弹窗看到一个数字，这个就是我们数据类型，下面这张表就是数据类型对应的值：（我们可以从excel帮助获得）

常数
值
描述
vbEmpty
0
未初始化（缺省值）
vbNull
1
不含任何有效数据
vbInteger
2
Integer
vbLong
3
长整数
vbSingle
4
单精度浮点数
vbDouble
5
双精度浮点数
vbCurrency
6
Currency
vbDate
7
Date
vbString
8
String
vbObject
9
对象
vbError
10
错误
vbBoolean
11
Boolean 
vbVariant
12
Variant（只用于变体的数组类型）
vbDataObject
13
数据访问对象
vbDecimal
14
Decimal
vbByte
17
Byte
vbLongLong
20
LongLong 整型（只在 64 位平台上有效。）
vbUserDefinedType
36
包含用户定义类型的变量
vbArray
8192

数组