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

我想从所有的工作表中追加数据，但是在我的代码中，我只能从第一张表单追加。 我已经写的代码将所有的HTML文件转换为Excel工作簿中的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

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

格式对话框的“alignment”选项卡中使用“在选区之间居中”，而不是合并的单元格。 对于垂直合并的单元格，不要合并它们。 使用单元格边界来确定属于一起的单元格。

这样，每个单元格，每行，每列可以单独select和寻址，没有任何错误或问题。