解决excel复制页面行高无法复制的问题

按下 “Alt+F11” 键打开 VBA 编辑器，在 VBA 编辑器中，选择 “插入”→“模块”，在模块窗口中输入以下代码：

vba

Sub CopyWithRowHeight()Dim srcRange As RangeDim destRange As RangeDim i As Long'设置源区域和目标区域Set srcRange = SelectionSet destRange = Application.InputBox("请选择目标区域", Type:=8)'复制内容srcRange.Copy Destination:=destRange'复制行高For i = 1 To srcRange.Rows.CountdestRange.Rows(i).RowHeight = srcRange.Rows(i).RowHeightNext i
End Sub

关闭 VBA 编辑器后，返回 Excel 工作表，先选中表格中复制源区域，按下 “Alt+F8” 键打开宏对话框，选择刚刚创建的宏 “CopyWithRowHeight”，点击 “运行”，在弹出的对话框中选择目标区域，点击 “确定” 即可。