一行变多行的代码生成器（非常好用）
作者：互联网
Application.Workbooks(1).Worksheets("Jan").Range("B12").Value = Workbooks("名单.xlsx").Range("B12").Text & Cells(5, "D").Formula
图 1 把变化部分字体标红，然后点击快速访问工具栏中的 红色方块按钮
图 2 在Sheet2的第3行提出所有变化的部分
图 3 第4行以下由用户手工填充，填充完毕后点击快速访问工具栏中的 生成按钮
图 4 在工作表Sheet3出现生成结果，选中后按下Ctrl+C
图 5 粘贴到记事本中
标签：多行,代码生成,工具栏,快速访问,Workbooks,Range,B12,按钮,好用 来源： https://www.cnblogs.com/ryueifu-VBA/p/12182130.html