Excel替换回车/换行符
0 个评论
在弹出的“替换”对话框中，切换至“查找内容”输入框，输入“Ctrl+Enter”。注意，输入后会显示一个小点，此点不显眼。
在“替换为”一栏中，无需输入任何内容，直接点击“全部替换”按钮。
操作完成后，所选单元格中的换行符将被成功去除。
...
阅读全文
PPT删除相同性状大小的图片
0 个评论
Sub DeleteShapes()
Dim SelSlide As Slide
'Dim SelPicName As String ' 控件有标题名字
'Dim SelPicText As String ' 没名字只有说明的
Dim SelText1 As String ' 文本框
Dim SelText2 As String ' 文本框
Dim i As Long
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox (" 请选中待删除的形状！ ")
Else
' SelPicName = Activ...
阅读全文
PPT提取文字 要勾选word库
0 个评论
Sub Main()
On Error Resume Next
Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide
For Each tmpSlide In ActivePresentation.Slides
For Each tmpShape In tmpSlide.Shapes
temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text
Next tmpShape
Next tmpSlide
temp.Appl...
阅读全文
excel去掉一些数字，比如有些行有数字（工号）和名字的组合，去掉工号留下名字
0 个评论
1点开发工具，点VB
2插入个新模块，定义一个函数
3输入下面的代码进行正则替换，换掉数字和斜杠
Function RemoveNumbers(Txt As String) As String
With CreateObject(“VBScript.RegExp”)
.Global = True
.Pattern = “[0-9/]”
RemoveNumbers = .Replace(Txt, “”)
End With
End Function
完成后是这样子
4保存
5返回窗体
6按照正常使...
阅读全文
EXCEL数据统计好了以后需要分析，需要生成百分比占比柱状图
0 个评论
前面我做了那个小调查，需要生成百分比占比柱状图
好久没用excel,摸索了半天才摸索出来
先插入->数据透视表，选好要透视的列
变成这种
然后，在汇总下面的数字那里右键
然后就可以了，柱状图的Y轴可以修改样式
就OK了
...
阅读全文
EXCEL计算的一些问题
0 个评论
今天用FREQUENCY统计不同阶段的数据，但是老是出错，统计不对，明明是6个，调整范围统计出来要嘛是5个，要嘛是7个，就是不对
搞了半天才想起，会不会是数据源的问题，虽然表格上显示的是整数，但是实际上填充的是带小数的数字
于是随便复制了一个到其他单元格，选择选择性粘贴，粘贴数据，果然，竟带有一位小数，原来源数据是计算得到的，很有可能带有小数，虽然我们可以设置单元格的格式只显示整数，实际上是带有小数的
于是我们先把这个数字的小数去掉=ROUND(L8,0)，然后写好分段数据
比如
69
79
89
100
在右边选中相同长度的单元格，比如按照上面选4个单元格，这一步非常...
阅读全文
如何批量删除ppt中的同一图片
0 个评论
最近编辑网上下载的PPT，发现有些图片不想要，在PPT里面又有很多，一张一张删除太麻烦，在网上找到的脚本，很好用
1、首先打开需要编辑的PPT幻灯片，进入到编辑首页中。
2、然后点击打开视图中的“宏”。
3、然后在弹出来的窗口中输入一个宏名，点击打开“新建”。
4、然后在弹出来的窗口中输入以下的代码。
Sub DeletePic()
Dim SelSlide As Slide
Dim SelPicName As String
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox (" 请选中待删除的图片！...
阅读全文
把职称复制到另外一个表
0 个评论
Sub Macro1()
'
' Macro1 Macro
'
'
Dim a
Dim i
Dim j
Dim v1, v2 As String
Dim l1, l2
Dim m
Dim n
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets(1) '表1
Set sh2 = Worksheets(2) '表2
For a = 1 To 10 '一次处理 表1 的 10行
i = Selection.Row
j = Selection.Column
v1 = Trim(Selection.Value) '去掉前后空白的...
阅读全文