1

テーブルをフィルタリングし、列 16241 の最初の表示行から開始し、セルが空白になるまで選択するコードがありますが、最初の列で 2 番目の列を選択できません。

この問題で私を助けてください、私は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
4

0 に答える 0