vba len函数

1、判断一个单元格内的字符串长度用Len函数，用法如下：

  s = Len(Range("A1").Text)

这里的百s就表示字符串有多少个字符组成度的。

2、判断选中的单元格是由几个小格子组成的可以这样：

比如：

Sub yy()
    [h6:k8].Merge   '将h6:k8区域合并单元格
    [h6].Select     '选中H6：k8这个合并单元格
    MsgBox Selection.Count   '通过Selection.Count这个命令就可以得到选中的这个区域的单元格数目回
End Sub

3、让单元格自动调答整行高，用AutoFit，自动适应方法，用法如下：    

Sub xx()
    Range("A1:F6").Rows.AutoFit
End Sub

这样就可以自动调整行高了！

Len()：得到字符串的长度。复
语法Len (string)
参数制string：string类型变量返回值Long。函数执行成功时返百回字符串的长度，发生错度误时返回-1。如果任知何参数的值道为NULL，则Len()函数返回NULL。
通常情况下，我们应该避开重复打开文件，如果知你略懂VBA，请使用下面代码测试：
将你的WOrkBooks.Open("D:\xx.xls")
改成如下：

Dim Wb as WorkBook '定义一个wb工作道簿变版量
On Error Resume Next '容错
Set wb = WOrkbooks("xx.xls")
'先引用xx.xls工作簿，如果该工作簿没有打开，那么将发生错误9；如果已经打开，将跳过下面这句打开工作簿的代码！权
If Err.Number = 9 Then Set wb = WorkBooks.Open("D:\xx.xls") '捕获错误9，打开相关工作簿

x=len(cells(7,1))