0

目标是将一系列数据复制到现有表中，该表首先删除旧数据。我有额外的代码，但这是处理表数据的代码部分。重要提示：我正在复制的范围不包含合并的单元格。我已经检查并仔细检查了。但是，如果重要的话，我要粘贴到的表格正下方有合并的单元格。

Sub updateData()
   Dim ws as worksheet, Tws as worksheet
   Dim tbl as listobject
   Set ws = thisworkbook.worksheets(1)
   Set Tws = thisworkbook.Sheets(2)
   Set tbl = Ws.ListObjects(1)

                        With tbl ' Deleting data from current table in the worksheet
                            If Not .DataBodyRange Is Nothing Then
                                .DataBodyRange.Delete
                            End If
                            .ListRows.Add
                        End With
                    fr = WorksheetFunction.Match("LookUpValue", Ws.Columns(1), 0) - 3 ' First row
                    fc = 1 ' First column
                    lc = Tws.Cells(fr, fc).End(xlToRight).Column ' Last column
                    lr = Tws.Cells(fr, fc).End(xlDown).Row - 3 ' Last row
                    Set NewData = Tws.Range(Tws.Cells(fr, fc), Tws.Cells(lr, lc))
                    NewData.Copy tbl.DataBodyRange(1, 1) ' WORKING CODE (overwrites merged cells)
                    Application.CutCopyMode = False
End sub

编辑：只是为了澄清我收到的错误是运行时错误'1004'：为此，所有合并的单元格必须具有相同的大小

第二次编辑：感谢@siddarth routh，我有一个工作代码。就个人而言NewData.Copy tbl.DataBodyRange(1, 1)，我决定取消合并下面的单元格以保持在它们之间插入我的行并使用这些行，而不是覆盖合并的单元格

 NewData.Copy
 tbl.DataBodyRange(1, 1).PasteSpecial

保持格式化而不覆盖我的单元格。

4

1 回答 1

0

使用

NewData.Copy
tbl.DataBodyRange(1, 1).PasteSpecial

并取消合并我表格下方的单元格。另外，我.listrows.add在我的with tbl条款中添加了这一行。

于 2019-02-22T10:11:17.297 回答