Excel 在过滤器-vba处选择两列

我的代码正在筛选一个表，从16241列的第一个可见行开始向下选择，直到单元格为空，但我无法选择第一列的第二列

请帮我解决这个问题，我正在努力学习excel中的VBA

Sub PasteSpecial()

    Range("K5:L10000").Select
    Selection.ClearContents
    Selection.Borders.LineStyle = xlNone
    Range("K4").Select
    Sheets("Databeta").Visible = True
    Sheets("Databeta").Select
    Range("WZQ3").Select
    Selection.AutoFilter Field:=1, Criteria1:="<>-"

    With ActiveSheet.AutoFilter.Range

        fRow = .Offset(1).Resize(.Rows.Count - 1, _
                                 .Columns.Count) _
                         .SpecialCells(xlCellTypeVisible).Row

    End With
    'unable to select both column

    Cells(fRow, 16241).Select

    Range(Selection, Selection.End(xlDown)).Copy
    Sheets("Variation").Select
    Range("K5").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteFormats
    Sheets("Databeta").Select
    Application.CutCopyMode = False
    ActiveSheet.ShowAllData
    Sheets("Databeta").Visible = xlVeryHidden
    Sheets("Variation").Select
    Range("D4").Select

End Sub

Sub-PasteSpecial（）
范围（“K5:L10000”）。选择
选择.ClearContents
Selection.Borders.LineStyle=xlNone
范围（“K4”）。选择
工作表（“数据表”）。可见=真实
工作表（“数据表”）。选择
范围（“WZQ3”）。选择
Selection.AutoFilter字段：=1，准则1:=“-”
使用ActiveSheet.AutoFilter.Range
fRow=.Offset（1）.调整大小（.Rows.Count-1_
.Columns.Count）_
.SpecialCells（xlCellTypeVisible）.行
以
'无法同时选择两列
单元格（fRow，16241）。选择
范围（选择，选择。结束（xlDown））。复制
表格（“变更”）。选择
范围（“K5”）。选择
Selection.Paste特殊粘贴：=xlPasteValues
Selection.Paste特殊粘贴：=xlPasteFormats
工作表（“数据表”）。选择
Application.CutCopyMode=False
ActiveSheet.ShowAllData
表（“数据表”）。可见=xlVeryHidden
表格（“变更”）。选择
范围（“D4”）。选择
端接头

Excel工作表中的列数超过16000列？？！不确定你的代码应该做什么（看起来像是调整过的宏记录器代码），但是如果你需要选择两列，你应该选择一个

范围（比如
范围（“WZQ:WZR”）.EntireColumn.select
），而不是一个特定的单元格（如果
单元格（fRow，16241）。选择
是你尝试选择的地方吗？）我有一个138列的表，我只想按“-”进行筛选，并在筛选完表后从第一个可见行选择最后一个可见行。。。。。。。并从第一列中仅选择两列（我的第一列位于16241）。