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) '去掉前后空白的...
阅读全文