Excel-合并具有不同文本数据的两个工作表

时间:2014-02-25 10:04:50

标签: excel vba excel-vba

我有两个excel工作表,它们具有相同的列和行信息。

但是,其中一个工作表包含空白单元格,其他文档中包含文本信息(但两个电子表格都太大而无法确切知道哪一个包含信息而另一个不包含信息)

我想合并两个工作表,以便最终的“主工作表”包含两个工作表中包含的所有信息。

我想从以下信息中获取所有信息:$ T $ 5381:$ B $工作表“B”并将其粘贴到工作表“A”中的相同范围

我尝试在Excel中使用'合并'功能,但这似乎仅在数据是数字时才有效。我试图从一个工作簿中选择所有数据,突出显示其他工作簿的空白并粘贴,但Excel不会让我,因为“复制区域和粘贴区域的大小或形状不同”。

有人有什么想法吗?

所以喜欢这个

第1页

   A  B  C
1  A  C
2  Z
3

第2页

   A  B  C
1        X
2 
3 L   O  R 

主表

   A  B  C
1  A  C  X
2  Z
3  L  O  R 

1 个答案:

答案 0 :(得分:1)

尝试这样的事情;

注意:您可能需要调整工作表名称

Sub MergeData()
Application.ScreenUpdating = False

    Dim A, B, C, i&, j&
    Set A = Sheets("Sheet1")
    Set B = Sheets("Sheet2")
    Set C = Sheets("Sheet3")

    For i = 1 To A.UsedRange.Rows.Count + 10
        For j = 1 To A.UsedRange.Columns.Count + 10
            C.Cells(i, j) = IIf(IsEmpty(A.Cells(i, j)), B.Cells(i, j), A.Cells(i, j))
        Next j
    Next i
Application.ScreenUpdating = True
End Sub