如何使用VBA仅复制粘贴Excel中含值不含公式的选中单元格

核心逻辑是替换xlDown的选中逻辑，改为按单元格显示值查找最后一行有效数据，或者直接筛选出有实际值的单元格再复制。

优化版代码（更稳定，推荐） #

Dim srcWs As Worksheet
Dim lastRow As Long

' 绑定源工作表，无需切换激活窗口
Set srcWs = Workbooks("RebalanZer_v4.11_3.xlsm").Sheets("Rebal IMF_PF,BM")

' 查找A列最后一个存在显示值的行，自动跳过公式返回空的单元格
On Error Resume Next
lastRow = srcWs.Columns("A").Find( _
    What:="*", _
    LookIn:=xlValues, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious _
).Row
On Error GoTo 0

' 兼容无数据场景，避免行号报错
If lastRow < 12 Then lastRow = 12

' 直接复制目标区域
srcWs.Range("A12:T" & lastRow).Copy

' 粘贴值到目标文件
Workbooks(Filename).Range("A1").PasteSpecial Paste:=xlPasteValues

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

改动说明 #

• 移除所有Activate、Select操作，避免窗口切换导致的操作错位，运行效率更高
• Find方法中LookIn:=xlValues指定按单元格实际显示值检索，公式返回空的单元格会被判定为空直接跳过
• 增加错误捕获和行号校验逻辑，当日无有效数据时不会触发下标越界错误

兼容原有写法的简化版 #

如果更习惯原有的操作逻辑，可以用SpecialCells直接筛选有值单元格：

Windows("RebalanZer_v4.11_3.xlsm").Activate
Sheets("Rebal IMF_PF,BM").Select
Range("A12:T12").Select
Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeConstants + xlCellTypeFormulas, 23).Copy
Windows(Filename).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

SpecialCells参数说明：

• xlCellTypeConstants匹配手动输入的数值单元格
• xlCellTypeFormulas匹配公式返回非空值的单元格
• 参数23是筛选规则组合，仅保留数字、文本、逻辑值、错误值类型的内容，排除公式返回的空值

内容的提问来源于stack exchange，提问作者Petter Løkken