EXCEL 中 VBA 的 一些应用（1） 1、编写“宏”让 Ex cel 自动合并选中单元格内容 在用 Excel 整理表格数据时，希望能够自动合并选中区域内所有单元格的内容，但是 Excel 软件自带的合并功能无法满足这个要求，应该怎么办呢？ 我们可以编写一个“宏”来实现，它可以巧妙地保存选区中所有单元格内的数据，通过循环赋值到一个变量中，最后再将结果输出到合并后的单元格内。 代码如下： Sub 合并单元格() '关闭屏幕更新和警告提示 Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i% '循环统计选中区域的单元格数据并将其合并到 StrTotal 中 For i = 1 To Selection.Count StrTotal = StrTotal & Selection.Cells(i) Next '设置选区格式 With Selection .MergeCells = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Value = "'" & StrTotal '在合并数据前加 '号 End With '恢复屏幕更新和警告提示 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 将上面的宏指定给一个自定义的工具栏按钮。接下来我们就可以测试一下结果了，如在几个不相邻的单元格内依次输入不同的数据(可以是文字、字母或数字)，最后选中所有的数据区域，单击刚才自定义的按钮，就可以看到合并的效果了。 2、用 VBA 代码编写一键插入 Ex cel 斜线表头 有的时候，我们要在 Excel 中添加斜线表头，可 Excel 并没有提供制作斜线表头的功能，每次都要手工画一条斜线，非常麻烦。有没有解决方法呢？其实，我们可以利用 VBA 代码可以编写一个功能，一键插入 Ex cel 斜线表头。 用“控件工具箱”中的“命令按钮”控件，在工作表中绘制一个命令按钮，将“Caption”属性改为“一键插入斜线表头”，双击该按钮，在“Click”事件中编写代码，其中关键代码如下。 关键代码： '获取行标题和列标题 Dim icol， irow As String icol=InputBox（"请输入斜线单元格的行标题"， 行标题） irow=InputBox（"请输入斜线单元格的列标题"， 列标题） Selection.Value = icol + " " + irow '判断字符串是否符合规定 If Len（icol） = 0 or Len（irow） = 0 Then MsgBox （"输入的标题为空！"） Exit Sub End If '判断选区是否只有一个单元格 If Selection.Count <> 1 Then MsgBox ...
