作者：乔山办公网日期：
返回目录：excel表格制作
1、判断一个单元格内的字符串长度用Len函数，用法如下zd：
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
这样就可以自动调整行高了！
WORD 表格中只改变某个单元格的宽度的方法，以下以调小为例说明：
1、选中你要调整的单元格，zd先拆分，按下图拆分后，分为四列－根据需要的宽度合并－把剩余的与后一列单元格合并：
2、分内列后的效果
3、根据需要的宽度合并单元格，以3个合并为例：
4、合并后的效果
5、将剩余的单元各与下容一单元格合并：
6、合并后的最终效果。
7.如果需要将单元格宽度增宽，方法与此相同，拆分2单元格，与1单元格合并即可。
Sub Macro2()
Dim hg As Integer, lk As Integer
lk = Val(InputBox("请输入列宽636f7079e799bee5baa6336"))
hg = Val(InputBox("请输入行高"))
zh = Val(InputBox("请输入字号"))
Cells.Select
Selection.RowHeight = hg
With Selection.Font
.Name = "宋体"
.FontStyle = "常规"
.Size = zh
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Application.Goto Reference:="C1:C16383"
Selection.ColumnWidth = lk
Application.Goto Reference:="C16384"
Selection.ColumnWidth = lk
Range("XEX12").Select
End Sub
Sub aa()
With ActiveSheet.Cells
.ColumnWidth = 2
.RowHeight = 15
Range("R9:Z9").Select
Selection.Value = "老婆抄我百爱你度，么么知！道"
End With
End Sub