当前位置: 首页 > news >正文

开封网站建设培训搜索推广出价多少合适

开封网站建设培训,搜索推广出价多少合适,wordpress 显示微信,php能干嘛 wordpress原文件名:修改后的文件名: Sub test() 我这里只定义了一个cell,其余的我没有定义 Dim cell As Range清空 A 列中所有的内容,确保之前的数据不会影响到后续的操作 [a:a].Clear获取文件加的名字,这里的dir函数只返回一个文件名,即该文件下的第…

 原文件名:

修改后的文件名:

Sub test()
'我这里只定义了一个cell,其余的我没有定义
Dim cell As Range'清空 A 列中所有的内容,确保之前的数据不会影响到后续的操作
[a:a].Clear'获取文件加的名字,这里的dir函数只返回一个文件名,即该文件下的第一个文件A.xlsx
Filename = Dir(ThisWorkbook.Path & "\")
MsgBox Filename'定位到表的第一行
RowIndex = 1'这个循环遍历当前工作簿所在文件夹中的所有文件名,直到没有文件或者文件名与当前工作簿相同(即排除当前文件)。
Do While Filename <> "" And Filename <> ThisWorkbook.Name'将获取的第一个文件的路径写入到a列的第一行Cells(RowIndex, 1) = ThisWorkbook.Path & "\" & Filename'行号加一,控制行号RowIndex = RowIndex + 1'获取下一个文件。Dir 函数的重复调用可以获取下一个文件Filename = Dir
Loop'从a1单元格到a列的最后一个非空单元格复制到b列
Range("a1", Cells(Rows.Count, 1).End(xlUp)).Copy [b1]'将b列中的A-公司替换成ABS公司等,可根据自己的需要进行替换
[b:b].Replace "A-公司", "ABS公司"
[b:b].Replace "B-公司", "BABALA公司"
[b:b].Replace "C-公司", "CVT公司"'遍历 A 列中的每个单元格,并使用 Name 语句将该单元格代表的文件路径重命名为 B 列中对应单元格的新名称。
For Each cell In Range("a1", Cells(Rows.Count, 1).End(xlUp))Name cell As cell.Offset(0, 1)
Next cell
End Sub

 实现的过程如下:
第一步:

第二步:

第三步:

第四步:

最后的效果:

http://www.shuangfujiaoyu.com/news/38782.html

相关文章:

  • 网站建设优化seo互联网推广话术
  • 开发网站做图文水印逻辑海外推广代理商
  • 泰安网网站建设怎样宣传自己的产品
  • 爱有声小说网站捡个校花做老婆小红书广告投放平台
  • 知乎 网站建设爱站网关键字挖掘
  • 网站后台上传图片脚本错误电商培训
  • 宁海有做网站的吗网店培训骗局
  • 网站开发模式有哪些北京推广平台
  • wordpress-microsoft webmatrix太原优化排名推广
  • 响应式相册网站模板下载直通车推广怎么收费
  • 宁德市建设局网站廊坊首页霸屏优化
  • 武汉做网站报价有必要买优化大师会员吗
  • 差异基因做聚类分析网站it教育培训机构
  • 苏州网站快速推广营销手段有哪些方式
  • 创建一个个人网站需要多少钱西安发布最新通知
  • 网站建设与管理需要什么软件有哪些内容如何做好搜索引擎优化工作
  • 门户网站建设 请示免费seo软件
  • 给微商做网站seo的重要性
  • 优质网站建设方案合肥网站排名提升
  • 喀什网站建设搜外网友情链接
  • 如何加入小说网站做打字员个人网站首页设计
  • 网站建设黄页软件江阴网站优化公司
  • 公司建网站要多少钱网络关键词排名软件
  • 海兴网站建设口碑营销理论
  • 嘉祥网站建设淘宝客推广一天80单
  • 网站推广站常州百度搜索优化
  • 南京网站建设cnee石家庄seo关键词排名
  • 深圳市住房和建设局网站菏泽资深seo报价
  • 建设银行网站上改手机百度搜索广告怎么投放
  • 国外网站打不开怎么解决网站服务器软件