第一段VBA脚本留念

需求：某一列单元格内容为逗号分隔的整数序列，形如（11,22）；解析并给每一个数字加300000，形如（300011,300022）；之后回写单元格即可

Sub Bat_Click()For Each w In Worksheets(1).UsedRange.Columns(6) '遍历第一张表格的第六列填过的数据Dim Index As Integer '声明一个临时索引，后边获得当前是第几行的时候会用到Index = 1For Each v In w.Value '遍历该列的每一个值If v <> "result" Then '略过第一行标题头Dim a As VariantDim b As VariantDim c As Stringa = Split(v, ",") '单元格内容逗号拆分b = UBound(a) 'UBound获得最大索引（以0为起始）If b > 0 Thenc = ""For i = 0 To bIf c <> "" Thenc = c + ","End Ifc = c + CStr(300000 + CInt(a(i))) '原字符串内容拆分的内容数字加3000000（强制转换），之后拼接为新的内容，举例：11,22 ===> 300011,300022NextRange("F" + CStr(Index)) = c '单元格内容赋值API——Range（超好用 ^^）ElseRange("F" + CStr(Index)) = (CStr(300000 + CInt(a(0))))End IfEnd IfIndex = Index + 1NextNext
End Sub

参考：
http://club.excelhome.net/forum.php?mod=viewthread&tid=1499041
https://blog.csdn.net/keepiss/article/details/79135618
https://blog.csdn.net/gordennizaicunzai/article/details/74937916
http://www.360doc.com/content/17/0902/11/30583536_684110308.shtml
https://jingyan.baidu.com/article/7c6fb428c6f49e80642c9096.html
https://www.yiibai.com/vba

第一段VBA脚本留念相关推荐

VBA脚本实现痕迹保留、手写签名、电子印章的插件
<script language=javascript> //系统变量 var vFileName=""; //打开的文件名 var vObject=null; //打 ...
《Java 开发从入门到精通》—— 2.2 编写第一段Java程序
本节书摘来异步社区<Java 开发从入门到精通>一书中的第2章,第2.2节,作者: 扶松柏 , 陈小玉,更多章节内容可以访问云栖社区"异步社区"公众号查看. 2.2 编 ...
python_selenium之第一个自动化脚本
python_selenium之第一个自动化脚本上一节介绍了xpath的使用,接下来完成第一个自动化脚本一.步骤: 1. 这里使用火狐浏览器,首先打开火狐浏览器 2. 使浏览器窗口最大化 3.输入 ...
python写web自动化_使用Python+selenium实现第一个自动化测试脚本
原标题:使用Python+selenium实现第一个自动化测试脚本最近在学web自动化,记录一下学习过程. 此处我选用python3.6+selenium3.0,均用最新版本,以适应未来需求. 环境 ...
第一段Java程序_借助Win控制命令台编译执行编辑器Notepad++
第一段Java程序_借助Win控制命令台编译执行编辑器Notepad++ 准备代码: 第一次编译: 显然需要先配置环境变量: 先找到java.exe和javac.exe所在的文件夹位置: 此电脑-& ...
Python+selenium第一个自动化脚本
第一个自动化脚本(用Python写的) from selenium import webdriver #从selenium导入webdriber driver=webdriber.Firefox() ...
写了一段VBA代码后， Excel每次保存时都弹出警告：”此文档中包含宏、Activex控件、XML扩展包信息“（office 2007）
前言:今天在写一段VBA代码之后,遇到一个问题, Excel每次保存时就报一个警告(使用的是office 2007): 此文档中包含宏.Activex控件.XML扩展包信息用起来很不爽! ----- ...
Excel 使用vba脚本按条件清除行数据
打开Excel 时右击相关sheet 进行操作 eg:sheet1-->右键-->查看代码-->粘入编辑好的vba脚本-->执行 Sub Delrows() ...
大数据必学Java基础（五）：第一段程序
文章目录第一段程序一.用notepad编写代码二.进行编译三.进行解释/翻译/执行第一段程序

第一段VBA脚本留念

第一段VBA脚本留念相关推荐

最新文章

热门文章