<em>EXCEL</em> <em>VBA</em>如何根据单元格里的

本文以win7系统excel2018为例进行演示，具zhidao体步骤如下所示。

1、打开excel点击工具回栏中的开始选项卡。

2、点击单元格选项卡中的格式选项卡。

3、在下拉菜单中选择自动调整行高答和自动调整列宽即可。

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

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

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

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

   比如：

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

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

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

　　对于这个问题，抄你可以有一下解决办法：

　　①利用单元格range的属性entireColumn

　　如：更改sheet2上A列单元格的列宽为50

Sheet2.Range("a1").EntireColumn.ColumnWidth = 50

　　→ →上面这句话也可以用下面知这句话代替

Sheet2.Range("A1").ColumnWidth = 50

　　→ →当然也可以用下面这句话代替

sheet2.Columns("A:A").ColumnWidth =50

　　②可以更改工作表中所有单元格的列宽，利用道cells的属性cloumnWidth

Sheet2.Cells.ColumnWidth = 50

　　

　　注：用以上方式也可以设置行高，rowHeight属性，方法相同；

　　希望能帮到你，谢谢！

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

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