使用UsedRange Offset粘贴可见区域报错“未找到方法或成员数据”求助

我来帮你搞定这个报错！你遇到的「Method or Member data not found」问题，核心原因出在对rang这个Range对象的引用方式上。

你定义了Set rang = ppage.UsedRange.Offset(1, 0)，这里的rang已经是一个Range对象了，但后续用rang("A1")来定位粘贴起始位置的写法是错误的——VBA不支持通过一个Range对象再用类似工作表的单元格引用格式（比如"A1"）来获取子区域，这种语法会被识别为调用不存在的方法/属性，直接触发报错。

我们可以调整粘贴位置的引用逻辑，同时优化代码的健壮性，避免其他潜在问题：

1. 修正粘贴位置的引用方式 #

把错误的rang("A1")和rang("D1")替换为rang.Cells(1, 1)和rang.Cells(1, 4)，或者更直观地直接基于ppage工作表的单元格定位起始点。

2. 优化粘贴起始行的定位 #

UsedRange可能会包含空白行/列，导致Offset后的起始位置不符合预期。建议直接找到ppage中最后一行的下一行作为粘贴起始点，比依赖UsedRange更可靠。

3. 完整修正后的代码 #

Sub CopyFilteredColumns()
    Dim lrow As Long
    Dim sh As Worksheet
    Dim ppage As Worksheet
    Dim ppageStartRow As Long
    
    ' 获取Country表筛选前的最后一行
    lrow = ThisWorkbook.Worksheets("Country").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 应用筛选（建议明确指定工作表，避免激活其他表出错）
    ThisWorkbook.Worksheets("Country").Range("$A$1:$AE$10000").AutoFilter Field:=1, Criteria1:="NA"
    
    ' 定义工作表对象
    Set sh = ThisWorkbook.Worksheets("Country")
    Set ppage = ThisWorkbook.Worksheets("PPage")
    
    ' 获取PPage表中要粘贴的起始行（最后一行的下一行）
    ppageStartRow = ppage.Cells(ppage.Rows.Count, 1).End(xlUp).Row + 1
    
    ' 复制A-C列可见区域并粘贴到PPage的A列起始位置
    On Error Resume Next ' 处理筛选后无可见行的情况
    sh.Range("A1:C" & lrow).SpecialCells(xlCellTypeVisible).Copy
    If Err.Number = 0 Then
        ppage.Cells(ppageStartRow, 1).PasteSpecial xlPasteValues
    Else
        MsgBox "未找到符合条件的可见行"
    End If
    On Error GoTo 0
    
    ' 复制S-U列可见区域并粘贴到PPage的D列起始位置
    On Error Resume Next
    sh.Range("S1:U" & lrow).SpecialCells(xlCellTypeVisible).Copy
    If Err.Number = 0 Then
        ppage.Cells(ppageStartRow, 4).PasteSpecial xlPasteValues
    End If
    On Error GoTo 0
    
    ' 清理剪贴板
    Application.CutCopyMode = False
    
    ' 取消筛选（避免影响后续操作）
    sh.AutoFilterMode = False
End Sub

额外注意事项 #

• 建议用ThisWorkbook.Worksheets明确指定工作簿，避免激活其他工作簿时出现逻辑错误
• 添加错误处理可以避免筛选后无可见行时的运行时错误
• 操作完成后取消AutoFilter，防止隐藏行影响后续工作表操作

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