Excel VBA:将数据从工作表移动到工作簿/为每张工作表创建新的工作簿

时间:2018-08-30 08:50:18

标签: excel vba excel-vba

我想以某种方式将数据从一个工作簿移动到另一个工作簿。情况如下:

我有两个工作簿:“ workbook_1”和“ workbook_template

我需要将数据从wb_1的工作表移至wb_template,并将其另存为新数据/为每张工作表创建一个新的工作簿。更精确地讲:wb_template的每一页都应另存为新文件。

例如,如果wb_1有5张纸,则应该创建5个新的wb_1

定义范围:

除了定义单元格/列之外,我还需要在wb1表中查找关键字,然后将其移动/翻译为wb_template。因此,我需要在wb_templates中查找某些关键字,而不是“盲目地”在单元格之间移动值,而是更改这些关键字的措词(翻译),然后将其放在{{1 }}。

。 。

为此,我有两种可能的情况:

1。。寻找特定术语并将其翻译为wb_1

  

wb_1 / sheet 1 /“ house_1” =>将其移动到特定的wb_template
  工作表/单元格(wb_template.Sheets(“ Sheet1”)。Range(“ A2”))作为“房屋蓝”

https://pasteboard.co/HBxorVS.png

。 。

2。。寻找某个条件并只取存储的值     在其右侧的单元格中:

  

wb_1 /第1页/“数字” | “ 4” =>在特定的时间内将其移动到wb_template       工作表/单元格(wb_template.Sheets(“ Sheet2”)。Range(“ A3”))如“ 4”

https://pasteboard.co/HBxoLaG.png

。 。

以下是一个简单的概述视图,显示了我确实希望通过宏实现的目标:

https://pasteboard.co/HBxq1Dh.png

。 。

我现在用于范围的代码如下:

wb_template

谢谢!

0 个答案:

没有答案