一行变多行的代码生成器（非常好用）

Posted 2020-11-24 ryueifu-vba

 众所周知，在各种语言的编程中，经常遇到从1行已有的代码，加工成与之有关的多行代码。

例如下面的一行代码，实际工作中可能需要把里面的数字或部分字母递增或递减变化，并且批量生成多行（生成的效果见 图5）。

Application.Workbooks(1).Worksheets("Jan").Range("B12").Value = Workbooks("名单.xlsx").Range("B12").Text & Cells(5, "D").Formula

我用Excel VBA制作的这个工具，可以完美解决这个问题。简单介绍使用步骤：

第1步：在工具的Sheet1的A3单元格输入原始代码，并且把想改变的部分设置红色字体（图1）。

点击按钮后，会在Sheet2的第3行提取出所有可变部分（图2）。

第2步：在第4行以下，你可以输入任何内容，有规律没规律均可（图3）。

输入完毕后，点击生成按钮。

第3步：Sheet3中可以看到生成结果（图4）。

第4步：从Excel复制代码到记事本（图5）。

工具优势：

用户要做的是上述第1步和第2步，标红是为了让工具识别到哪些部分需要变换，填充是为了让工具识别到扩展到多少行。

因此用户手工操作的部分很少，其他环节都是工具自动完成，非常省脑，只需要具备Excel基本操作的能力就可以使用该工具。

速度快。

用户不需要思考代码逻辑。

注意：被加工的代码可以是任何字符串，Python、C#等等各种代码都可使用该工具。

 

 图 1 把变化部分字体标红，然后点击快速访问工具栏中的 红色方块按钮

 

 

  图 2 在Sheet2的第3行提出所有变化的部分

 

 

  图 3 第4行以下由用户手工填充，填充完毕后点击快速访问工具栏中的 生成按钮

 

  图 4 在工作表Sheet3出现生成结果，选中后按下Ctrl+C

 

  图 5 粘贴到记事本中