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

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

vba

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

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