按要求修改某列数据,如:SHW20211013008,修改为SHW211013008
要求:G列SHW开头去后面跟随的20
M列若值为0则删除整行数据。
用vba修改excel中的数据
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- wkspeaker 2022-01-07 21:27关注
Option Explicit
Sub test()
Dim I As Long
Dim tmpString As StringWith ActiveSheet
For I = 1 To .UsedRange.Rows.Count
tmpString = Trim(Range("G" & I))
If Mid(tmpString, 4, 2) = "20" Then Range("G" & I) = Left(tmpString, 3) & Mid(tmpString, 6)
'G列SHW开头去后面跟随的20,考虑到如果SHW后面不是20就不变
If Range("M" & I) = 0 Then .Rows(I).Delete
'M列若值为0则删除整行数据。
Next I
End With
End Sub本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥20 java在应用程序里获取不到扬声器设备
- ¥15 echarts动画效果的问题,请帮我添加一个动画。不要机器人回答。
- ¥60 许可证msc licensing软件报错显示已有相同版本软件,但是下一步显示无法读取日志目录。
- ¥15 Attention is all you need 的代码运行
- ¥15 一个服务器已经有一个系统了如果用usb再装一个系统,原来的系统会被覆盖掉吗
- ¥15 使用esm_msa1_t12_100M_UR50S蛋白质语言模型进行零样本预测时,终端显示出了sequence handled的进度条,但是并不出结果就自动终止回到命令提示行了是怎么回事:
- ¥15 前置放大电路与功率放大电路相连放大倍数出现问题
- ¥80 部署运行web自动化项目
- ¥15 腾讯云如何建立同一个项目中物模型之间的联系
- ¥30 VMware 云桌面水印如何添加