Excel替换回车/换行符

0 个评论
在弹出的“替换”对话框中,切换至“查找内容”输入框,输入“Ctrl+Enter”。注意,输入后会显示一个小点,此点不显眼。 在“替换为”一栏中,无需输入任何内容,直接点击“全部替换”按钮。 操作完成后,所选单元格中的换行符将被成功去除。 ...
2025-01-11 / EXCEL PPT 编程VBA / 11 views浏览
阅读全文

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...
2024-10-20 / EXCEL PPT 编程VBA / 85 views浏览
阅读全文

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...
2024-10-20 / EXCEL PPT 编程VBA / 75 views浏览
阅读全文

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按照正常使...
2021-12-22 / EXCEL PPT 编程VBA / 392 views浏览
阅读全文

EXCEL数据统计好了以后需要分析,需要生成百分比占比柱状图

0 个评论
前面我做了那个小调查,需要生成百分比占比柱状图 好久没用excel,摸索了半天才摸索出来 先插入->数据透视表,选好要透视的列 变成这种   然后,在汇总下面的数字那里右键 然后就可以了,柱状图的Y轴可以修改样式 就OK了 ...
2021-01-27 / EXCEL PPT 编程VBA / 635 views浏览
阅读全文

EXCEL计算的一些问题

0 个评论
今天用FREQUENCY统计不同阶段的数据,但是老是出错,统计不对,明明是6个,调整范围统计出来要嘛是5个,要嘛是7个,就是不对 搞了半天才想起,会不会是数据源的问题,虽然表格上显示的是整数,但是实际上填充的是带小数的数字 于是随便复制了一个到其他单元格,选择选择性粘贴,粘贴数据,果然,竟带有一位小数,原来源数据是计算得到的,很有可能带有小数,虽然我们可以设置单元格的格式只显示整数,实际上是带有小数的 于是我们先把这个数字的小数去掉=ROUND(L8,0),然后写好分段数据 比如 69 79 89 100 在右边选中相同长度的单元格,比如按照上面选4个单元格,这一步非常...
2020-07-08 / EXCEL PPT 编程VBA / 1,176 views浏览
阅读全文

如何批量删除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 (" 请选中待删除的图片!...
2020-02-12 / EXCEL PPT 编程VBA / 3,334 views浏览
阅读全文

把职称复制到另外一个表

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) '去掉前后空白的...
2017-11-12 / EXCEL PPT 编程VBA / 4,074 views浏览
阅读全文