无法更改合并单元格的一部分错误 Excel VBA

Question

我想附加所有工作表中的数据，但是在我的代码中，我只能从第一张工作表中附加。我编写的代码会将所有 html 文件转换为 1 个工作簿中的 excel，然后我想附加到 1 个工作表中。执行我的代码时出现错误提示“无法更改合并单元格的一部分” 任何帮助将不胜感激。

Sub Demo()


'Convert HTML to EXCEL and Gathers a file
intChoice = Application.FileDialog(msoFileDialogOpen).Show
Dim strOpenFiles As String
Set WorkbookDestination = Workbooks.Add(xlWBATWorksheet)
If intChoice <> 0 Then

    For i = 1 To Application.FileDialog(msoFileDialogOpen _
        ).SelectedItems.count
        strPath = Application.FileDialog(msoFileDialogOpen _
        ).SelectedItems(i)

            Set WorkbookSource = Workbooks.Open(strPath)
            Set WorksheetSource = WorkbookSource.Worksheets(1)
            WorksheetSource.Copy After:=WorkbookDestination.Worksheets(WorkbookDestination.Worksheets.count)
            Rows("1:2").Delete Shift:=xlUp
            WorkbookSource.Close
    Next i
        'Merges the Sheet
                        For i = 1 To ActiveWorkbook.Worksheets.count
                            a = ActiveSheet.Rows.count
                            Sheets(i).Activate

                           ' ActiveSheet.UsedRange.Select
                            ActiveSheet.UsedRange.Copy
                            Worksheets("Sheet1").Activate
                            ActiveSheet.Paste
                        Next i


End If
    ActiveWorkbook.SaveAs FileName:=Application.GetSaveAsFilename( _
    FileFilter:="Excel Files(*.xlsx), *.xlsx")

End Sub

Answer 1

避免合并单元格。他们让生活变得更加艰难。在运行宏之前浏览所有工作表并取消合并合并的单元格。

使用“格式”对话框的“对齐”选项卡中的“跨选区居中”来代替合并单元格。对于垂直合并的单元格，不要合并它们。使用单元格边框来确定属于一起的单元格。

这样，每个单元格、每一行、每一列都可以单独选择和处理，而不会出现任何错误或问题。