如何移除VBA复制列可见单元格代码中的Select/Selection并解决报错

• 语法错误：Range 对象构造方式不符合VBA规则，你传入了3个参数（起始单元格、行号、列号），但Range仅支持「单地址字符串」「两个单元格对象作为起止边界」两种传参方式，多传参数直接触发无效属性赋值错误。
• 冗余代码未清理：改写后的代码仍然保留了Select、Selection调用，没有实现移除所有选择操作的目标。
• 范围逻辑混乱：原代码仅需要处理指定的单列，你额外引入了lcolumn变量，反而偏离了原始需求，原代码里的Selection.End(xlToLeft)本身就是无用操作，可以直接删除。

改写后的无Select版本函数 #

Sub findandCopyVisbleCellsinColumn(ByVal ws As Worksheet, ByVal columnNumber As Long)
    Dim lastRow As Long
    Dim dataRng As Range, visibleRng As Range
    
    ' 计算指定列的最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, columnNumber).End(xlUp).Row
    ' 无有效数据时直接退出
    If lastRow < 2 Then Exit Sub
    
    ' 构建指定列的目标数据范围（跳过表头行）
    Set dataRng = ws.Range(ws.Cells(2, columnNumber), ws.Cells(lastRow, columnNumber))
    
    ' 错误处理：避免筛选后无可见单元格时报错
    On Error Resume Next
    Set visibleRng = dataRng.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 存在可见单元格时执行复制
    If Not visibleRng Is Nothing Then
        visibleRng.Copy
    End If
End Sub

参数优化说明：原代码传入的wb参数是冗余的，传入的ws本身已经绑定了所属工作簿，不需要额外传递工作簿参数。

兼容原逻辑的调用代码 #

emptyCell = range_End_Method(wb, ws, 3)
Call findandCopyVisbleCellsinColumn(ws1, 7)
ws.Range("C" & emptyCell).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

如果不需要保留单元格格式，建议直接用范围赋值替代复制粘贴，跳过系统剪贴板，执行效率更高，也不会影响用户原本的剪贴板内容，修改方案如下：

1. 将函数改为返回可见单元格范围：

Function getVisbleCellsinColumn(ByVal ws As Worksheet, ByVal columnNumber As Long) As Range
    Dim lastRow As Long
    Dim dataRng As Range
    lastRow = ws.Cells(ws.Rows.Count, columnNumber).End(xlUp).Row
    If lastRow < 2 Then Exit Function
    Set dataRng = ws.Range(ws.Cells(2, columnNumber), ws.Cells(lastRow, columnNumber))
    On Error Resume Next
    Set getVisbleCellsinColumn = dataRng.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
End Function

2. 调用时直接赋值：

Dim targetRng As Range
Set targetRng = getVisbleCellsinColumn(ws1, 7)
If Not targetRng Is Nothing Then
    ws.Range("C" & emptyCell).Offset(1, 0).Resize(targetRng.Rows.Count, 1).Value = targetRng.Value
End If

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