小编Geo*_*iev的帖子

我有一张包含一堆数据的表格。然后我有一个不同的工作表，它引用了第一张工作表中的多个单元格。如果我想删除第一个工作表并将其替换为相同的工作表（在任何意义上都相同，即工作表名称、每个单元格中的数据类型、格式等，除了每个单元格中的实际文本数据），其他工作表丢失了，我所有的单元格都会产生#REF！错误。

有没有办法保留引用并替换或覆盖工作表，而无需手动剪切和粘贴信息？

预先感谢，

乔治

我在一个工作簿上创建了一个按钮,打开另一个无宏工作簿.transposeDataMatrices是将在打开的工作簿中的工作表上运行的子:

Private Sub CommandButton21_Click()
Set BEEBook = ThisWorkbook

FileSelect = Application.GetOpenFilename(FileFilter:="Excel Files (*.xl*), *.xl*", Title:="Please select the report to import")
If FileSelect = "False" Then Exit Sub
Set ReportBook = Workbooks.Open(FileSelect)

transposeDataMatrices

End Sub

内transposeDataMatrices是以下,重截短代码(ReportBook为工作簿中的全局变量在正在处理trasposeDataMatrices; cArray是一个全局数组):

Public Sub transposeDataMatrices()

ReportBook.Activate

rowCounter = finWkst.UsedRange.Rows.Count
For ii = 1 To wsCount

    Worksheets(ii).Activate
    pullModelData (ii) ' just pulls some data, off ii worksheet in ReportBook

    ReDim indexIDArray(0 To 504) As Integer
    Dim j as …