怎样才能复制并且黏贴用公式计算出来的数据并且要保留工作表格式
用操作法，除了行高无法复制粘贴外，其他的可以，但是需要多部，第一步选择性粘贴里，格式，第二步，再一次，里面的列宽，第三步，再一次选择性粘贴，里面的值和数字格式。这样，除了行高，其他都一样了。如果要完全一横一样，你只有用vbaSub 一样()Set rng = Sheets("sheet1")。 Range("b3") '要复制的单元格With Sheets("sheet2")。Range("d1") '要粘贴的位置。HorizontalAlignment = rng。HorizontalAlignment '对齐方式。 VerticalAlignment = rng。VerticalA...全部
用操作法，除了行高无法复制粘贴外，其他的可以，但是需要多部，第一步选择性粘贴里，格式，第二步，再一次，里面的列宽，第三步，再一次选择性粘贴，里面的值和数字格式。这样，除了行高，其他都一样了。如果要完全一横一样，你只有用vbaSub 一样()Set rng = Sheets("sheet1")。
Range("b3") '要复制的单元格With Sheets("sheet2")。Range("d1") '要粘贴的位置。HorizontalAlignment = rng。HorizontalAlignment '对齐方式。
VerticalAlignment = rng。VerticalAlignment '对齐方式。Value = rng。Value '值。Font。Size = rng。Font。Size '字体大小。
Font。ColorIndex = rng。Font。ColorIndex '字体颜色。Interior。ColorIndex = rng。Interior。ColorIndex '背景颜色。
ColumnWidth = rng。ColumnWidth '列宽。RowHeight = rng。RowHeight '行高End WithEnd Sub以上代码意思是，将sheet1表的B3单元格复制到sheet2表的D1单元格。
这只是一部分，因为没有考虑字体格式等，这些都可以加进去。收起
