Question

我创建这个简单的脚本只是为了从一个范围（我在一张纸上的一列数据）中复制数据，然后复制一个特定的工作表并输入数据作为标题。它工作得很好，但我想解决2个问题：

1）我无法从数据列所在的工作表以外的任何地方执行宏。如果我这样做，它会崩溃。

2）工作表已在单元格中具有公式，以便复制它们，公式也会复制。这些公式主要是一些Vlookups和Index。考虑到有多张纸张被创建，我必须使用sheetoffset，所以我不会每次都对这些纸张进行编号，但是我必须插入＆＃34; sheetoffset＆＃34;在单元格中，以便它复制到宏创建的每个工作表。是的，它有效，并且不难去第一张纸并替换配方，但我希望能让它变得更容易。我怎样才能A）在每个新工作表中在单元格中插入一个sheetoffset公式（让他们假装它的单元格L1）？或者B）为每张纸创建它们的编号（如果我删除前一张纸可能会导致问题）？

Sub Macro13()

Application.DisplayAlerts = False

Dim rcell As Range
Dim Background As Worksheet

Set Background = Sheets("Sheet_Data_is_Coming_From")
For Each rcell In Range("B4:B7")
   If rcell.Value <> " " Then
      Sheets("Sheet_Being_Copied").Copy Before:=Sheets("Sheet_Data_is_Coming_From")
      Sheets(Sheets("Sheet_Data_is_Coming_From").Index - 1).Name = rcell.Value
   End If
Next rcell

Application.DisplayAlerts = True
End Sub

`

从任何工作表执行代码+添加＆＃34; Sheetoffset＆＃34;特定单元格的公式

0 个答案: