我正在创建一个工具来根据几个输入修改数据表的行和列:Min,Step-up和Max。最小值(I9)链接到K6。我希望K6以下的每个单元根据升压值(I10)增加,直到K中的值达到最大值(I11)。我无法根据最大值终止循环。 任何帮助将不胜感激。 Sub Button3_Click()
Dim x As Integer
Dim z As Integer
Do
Cells((8 +
此代码中的所有内容均可正常工作,除非在最后关闭工作簿时执行某些操作。我将一些代码插入到工作簿的ThisWorkbook中,该工作簿将从文本文件中打开,并将主电子表格中的一些选项卡复制到我在此循环中打开的每个工作簿中。在循环结束时,当我尝试关闭并转向下一个工作簿时,它崩溃。 Sub AddSht_AddCode()
Dim wb As Workbook
Dim xPro As VBIDE.VBP