摘要： 先看一下原始数据，A到E列为单元格数据，需要将每行的非空单元格内容合并到F列存储在一个单元格中，并且用逗号分开。 选择【开发工具】-【插入】- 选择【Active...
先看一下原始数据，A到E列为单元格数据，需要将每行的非空单元格内容合并到F列存储在一个单元格中，并且用逗号分开。
选择【开发工具】-【插入】- 选择【ActiveX控件】中的按钮。
用鼠标在excel表格中画出一个按钮。
双击该按钮，进入编辑代码模式。
粘贴下列代码：
Private Sub CommandButton1_Click()
Dim n, i, j, m
Dim arr, brr()
n = [a65535].End(xlUp).Row
ReDim brr(1 To n)
arr = Range("A1:E" & n) '其中A1:EN表示的是原始数据区域
For i = 1 To n
在PPT中插入Excel表格
在PPT中插入Excel表格 PowerPoint2003是微软公司提供的一款幻灯片制作软件，该软件一般与投影仪来配合使用，不管是在演讲、上课、开会、培训等宣传上，这都是必不可少的工具和设备。当我们需要在PPT里添加表格时，我们就先要把Excel制作好，然后将其插入到幻灯片中，具体怎么操作呢?就让Word联盟为大家带来分享。 动画演示 ①单击菜单栏中的“插入”—“对象”命令，打开“插入对象”对话框。 ② 选中“由文件创建”选项，然后单击“浏览”按钮，找到你想插入的Excel表格文件所在的文件夹，选中相应的
For j = 1 To 5 '5表示A到E列是5列
If arr(i, j) <> "" Then
brr(i) = brr(i) & "," & arr(i, j)
End If
Next j
brr(i) = Mid(brr(i), 2, 99)
Next i
[F1].Resize(n, 1) = Application.Transpose(brr) 'F1表示从F1开始输出结果
End Sub
返回excel工作表界面，点击【开发工具】-【编辑模式】按钮退出编辑模式。
点击刚才插入的命令按钮，F列就输出了我们想要的内容。
注意：
只需要更改代码中加标注的原始区域列标和行号及输出结果位置的第一个单元格就可以应用到读者自己实际的工作表中去了。
Excel表格"隐藏"和"取消隐藏"工作表.行.列
Excel表格
