小编Plu*_*toX的帖子

你可以帮我调整我的宏吗？

是)我有的

• wb1,wb2..通过文件资源管理器对话框窗口选择不同的工作簿(.)并将它们列在列表框中

• 将选定工作簿中的某些数据传输到工作簿模板(wb_template)并将其另存为new workbook.

• 在new workbook包含数据wb_1,但结构 wb_template用户形式如下:

我需要的

我需要调整工作簿中相关数据的选择方式("传输数据"按钮).我需要一张loop经过每张纸的内容,wb_1并且涵盖以下内容:

• 查找某些术语wb_1并将其移动/重命名为wb_template特定的工作表/列/单元格.
  例:

• 查找某些术语,wb_1然后获取值,该值存储在右侧的单元格中,并移动到wb_template特定的工作表/列/单元格中.
  示例:

上面的步骤应该应用于每张纸,wb_1并且应该new workbook创建每张纸.

因此,在流程结束时,我应该new workbook为每张纸都有一个wb_1.
例如:如果wb_1有5张,则应该有5个new workbookscreated(wb1_1, wb1_2, wb1_3,...).

下面是一个简单的概述视觉表现什么,我到底要达到这个宏:

我的实际代码

传输数据按钮

Sub Transferfile(wbTempPath As String, wbTargetPath As String)
    Dim wb1 As Workbook
    Dim wb_template As Workbook

    Set …