我想用这个语句复制数据如何保持格式完全一致？ ActiveSheetCellslastRow nValue = ActiveSheetCellsi jValue

您可以使用以下语句来复制数据并保持格式完全一致：

ActiveSheet.Cells(lastRow, n).Value = ActiveSheet.Cells(i, j).Value ActiveSheet.Cells(lastRow, n).NumberFormat = ActiveSheet.Cells(i, j).NumberFormat ActiveSheet.Cells(lastRow, n).Font.Name = ActiveSheet.Cells(i, j).Font.Name ActiveSheet.Cells(lastRow, n).Font.Size = ActiveSheet.Cells(i, j).Font.Size ActiveSheet.Cells(lastRow, n).Font.Bold = ActiveSheet.Cells(i, j).Font.Bold ActiveSheet.Cells(lastRow, n).Font.Italic = ActiveSheet.Cells(i, j).Font.Italic ActiveSheet.Cells(lastRow, n).Font.Underline = ActiveSheet.Cells(i, j).Font.Underline ActiveSheet.Cells(lastRow, n).Interior.Color = ActiveSheet.Cells(i, j).Interior.Color ActiveSheet.Cells(lastRow, n).Interior.Pattern = ActiveSheet.Cells(i, j).Interior.Pattern ActiveSheet.Cells(lastRow, n).HorizontalAlignment = ActiveSheet.Cells(i, j).HorizontalAlignment ActiveSheet.Cells(lastRow, n).VerticalAlignment = ActiveSheet.Cells(i, j).VerticalAlignment

这将复制源单元格的值和所有格式，包括数字格式、字体、颜色、对齐方式等