使用Excel宏代码合并的时候数据不全

Dim MyPath, MyName, AWbName, Wbn As String Dim Wb As Workbook, Num%, G%, a Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xlsx")Do While MyName <> "合并.xlsx"If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath...

所以你复制过来以后，在使用X = Range("A65536").End(xlUp).Row + 1求最大行号的时候， 就造成了有可能A列的最大行号，并不是其它列的最大行号，所以造成有的数据在再次粘贴时被覆盖了。你把X = Range("A65536").End(xlUp).Row + 1换成X = UsedRange.Rows.Count + 1即可。

你打开的表格是.xls格式的工作薄,是由2003版本创建的,在2007版本中以兼容模式打开,所以还是原来的2003版本的65536行 要解决这个问题,你只需要将这个.xls的工作薄另存为.xlsx格式的工作薄,就可以有100多万行了

Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub

你在取得源表的最后一行时没有指定工作表，于是取的都是sheet1的最后一行，所以会出现你说的这种情况。这样修改试试：Sub 合并()Dim i As Integer For i = 2 To Worksheets.Count Step 1 Worksheets(i).Range("1:" & Worksheets(i).[a65536].End(3).Row).Copy [a65536].End(3).Offset(...

1. 将需合并的excel文件放在同一个文件中，并这个文件中新建一个excel文件 2. 打开新建的excel文件，按alt + f11建，打开宏，新建一个模组，将下面的代码拷贝进去，并保存。Sub Books2Sheets()'定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker)'新建一个...

vb复制代码Dim lastRow As LonglastRow = Cells(Rows.Count, "A").End(xlUp).RowRange("A1:A" & lastRow).FillDown这样就会根据实际数据的最后一行进行填充，不受行数变化的限制。通过以上方法，你可以更好地录制和编辑Excel宏，确保其能够适应不同数据量和行数的情况。

'Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)'是不是应该改成这样Wb.Sheets(G).UsedRange.Cells(.Range("B65536").End(xlUp).Row + 1, 1).Copy

Range("F3:H6").Select '这里的F3：H6你可以替换成任意你想要合并的单元格区域,或者把这行代码删除掉，你选择好要合并的区域后执行这个宏就OK了。With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = ...

提示给你的是定义类型错误 个人推测是因为你没把工作表名改正确，sheets("summary").和sheets("pricing").是否能在表格中找到。这句代码本身没其他问题。