java零基础 数据算法 TensorRT Flutter docker安装 excel reflection foreach gdb 百度seo关键词 安卓项目实战 jq获取元素 oracle查看数据库状态 oracle自增长 js字符串排序 oracle创建唯一索引 svn查看历史版本 plsql卸载 SketchUp python怎么配置环境 java的数据类型 java中正则表达式 java获取url 战地女记者 内存整理软件 atq 0x8002801c 字幕提取 c语言编程实例 脚本学习 数据结构与算法分析 grep正则表达式 dnf胜利的证明有什么用 键盘灯怎么关 xlwt x怎么截图 ae烟雾特效 jdk11下载 保卫萝卜攻略沙漠7 上网监控系统
当前位置: 首页 > 学习教程  > 编程语言

6.常用VBA 在某列添加sheet的名称

2021/1/28 23:29:26 文章标签:

命令从下面第一个Sub开始: Sub 在J列添加卡的名字() Dim sht As Worksheet For Each sht In ThisWorkbook.Sheets lr sht.Cells(Rows.Count, “e”).End(3).Row With sht .Range(“j1”).Value “WF” .Range(“j2:j” & lr) “WF-” & Right(.Name, 4)…

命令从下面第一个Sub开始:

Sub 在J列添加卡的名字()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
lr = sht.Cells(Rows.Count, “e”).End(3).Row
With sht
.Range(“j1”).Value = “WF”
.Range(“j2:j” & lr) = “WF-” & Right(.Name, 4)
End With
Next sht
End Sub

Sub 在G列添加sheet的名字()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
lr = sht.Cells(Rows.Count, “e”).End(3).Row
With sht
.Range(“j1”).Value = “WF”
.Range(“G1:G” & lr) = .Name
End With
Next sht
End Sub


本文链接: http://www.dtmao.cc/news_show_650220.shtml

附件下载

相关教程

    暂无相关的数据...

共有条评论 网友评论

验证码: 看不清楚?