テーブルをフィルタリングし、列 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