这确实是Office版本/位数组合导致的兼容性问题，不同版本的Excel在处理剪贴板中隐藏行属性时的逻辑存在差异：Win10 64位搭配Office2013 64位/2016 32位时，复制整个Cells范围会保留行的隐藏状态；但旧版32位Office（2010、2013 32位）的剪贴板处理逻辑不会同步隐藏行属性，导致粘贴后隐藏行自动变为可见。

下面给你几个靠谱的解决方案，按推荐优先级排序：

方案1：直接复制整个工作表（最稳妥） #

如果不需要把数据粘贴到已有的目标工作表中，直接复制整个源工作表到目标工作簿是最省心的方式——这种方法会完整迁移所有工作表属性，包括行隐藏、列隐藏、格式、公式甚至宏（如果存在的话）：

' 假设wbSource是源工作簿，wbTarget是目标工作簿
wbSource.ActiveSheet.Copy After:=wbTarget.Sheets(wbTarget.Sheets.Count)

执行后会在目标工作簿的最后位置新增一个和源表完全一致的工作表，完美保留所有隐藏状态。

方案2：复制数据后手动同步行隐藏状态 #

如果必须把数据粘贴到目标工作簿已有的工作表中，可以先复制所有内容，再遍历源表的行，同步隐藏状态到目标表：

Dim wbSource As Workbook, wbTarget As Workbook
Dim wsSource As Worksheet, wsTarget As Worksheet
Dim i As Long

' 替换成你的实际工作簿和工作表对象
Set wbSource = ThisWorkbook
Set wbTarget = Workbooks("你的目标工作簿名称.xlsx")
Set wsSource = wbSource.ActiveSheet
Set wsTarget = wbTarget.Sheets("你的目标工作表名称")

' 复制所有内容（值、格式、公式等）
wsSource.Cells.Copy
wsTarget.Range("A1").PasteSpecial xlPasteAll

' 同步每一行的隐藏状态（仅遍历有数据的行，提升效率）
For i = 1 To wsSource.UsedRange.Rows.Count
    wsTarget.Rows(wsSource.UsedRange.Row + i - 1).Hidden = wsSource.UsedRange.Rows(i).Hidden
Next i

' 清除剪贴板状态
Application.CutCopyMode = False

这里用UsedRange代替遍历所有行，能大幅减少循环次数，提升运行效率，尤其适合数据量较大的工作表。

方案3：仅复制可见单元格（如果不需要保留隐藏行内容） #

如果你的需求是只复制可见行的内容，而不是保留隐藏行的内容和状态，可以直接复制可见单元格：

wsSource.Cells.SpecialCells(xlCellTypeVisible).Copy
wsTarget.Range("A1").PasteSpecial xlPasteAll
Application.CutCopyMode = False

这个方法适合不需要迁移隐藏行数据的场景，避免粘贴后出现多余的可见行。

内容的提问来源于stack exchange，提问作者Nithin