二表合一

镇远信合

我有两个不同类型的表，只是表头表述情况不同，但表中内容基本相同，如何将他们合并成一张表呢？见附件

3190496160

从来没见过这样的汇总，肯定是可以完成的，单是，工作量不小，先留个足印吧，

3190496160

Sub hebing()
    Dim d As Object, dc As Object
    Set d = CreateObject("scripting.dictionary")
    Set dc = CreateObject("scripting.dictionary")
    With Sheets("合并表")
        .UsedRange.Offset(2) = Empty
        ar = .Range("a1:w50000")
        For j = 1 To UBound(ar, 2)
            If Trim(ar(1, j)) <> "" Then
                d(Trim(ar(1, j))) = j
            End If
            If Trim(ar(2, j)) <> "" Then
                dc(Trim(ar(2, j))) = j
            End If
        Next j
            n = 2
            br = Sheets("个人贷款").[a1].CurrentRegion
            For i = 2 To UBound(br)
                If Trim(br(i, 1)) <> "" Then
                    n = n + 1
                    For j = 1 To UBound(br, 2)
                        m = d(Trim(br(1, j)))
                        If m <> "" Then
                            ar(n, m) = br(i, j)
                        End If
                    Next j
                End If
            Next i
            br = Sheets("公司贷款").[a1].CurrentRegion
            For i = 2 To UBound(br)
                If Trim(br(i, 1)) <> "" Then
                    n = n + 1
                    For j = 1 To UBound(br, 2)
                        m = dc(Trim(br(1, j)))
                        If m <> "" Then
                            ar(n, m) = br(i, j)
                        End If
                    Next j
                End If
            Next i
            .Range("a1:w50000") = ar
    End With
  MsgBox "OK!"
        
End Sub

3190496160

1、合并表  的A列设为  文本格式，
2、删除目前   公司贷款  工作表中的第一行标题，
然后运行代码

镇远信合

老师，我支VBA一窍不通，在哪里输入代码？

镇远信合

老师，我对VBA一窍不通，在哪里输入代码？

相见是缘8

镇远信合 发表于 2020-3-18 17:03
老师，我支VBA一窍不通，在哪里输入代码？

打开Word文档，点上面的“工具”→“宏”→“宏”→“编辑器”→复制粘贴代码到右边的空白处→“关闭代码窗口”→再点文档上面的“工具”→“宏”→“宏”→点击代码名→“运行”，即可。

镇远信合

老是运行不了，不知是哪里错了，一是弹出“缺少 END SUB",再是弹出”子过程或函数未定义“

413191246se

楼主，代码必须放到 Excel 中才可以，不要放在 Word 里。

镇远信合

我已放在EXCEL里面，但根据要求，表头分别增加了两行，列内容增加了若干，增加以后就不行了，再次求教，代码需修改哪些东东？