vba - VBAを使用してExcelでフィルター処理されたセルの値を選択して貼り付ける方法

Question

下の図では、列 a にフィルターを適用して項目 "b" を選択し、コメント フィールドで "OK" を更新しています。マクロでこれを行う方法を知っていますか？また、フィルターがオンでフィルター処理されているときに、列に表示されているセルを選択する方法を知る必要があります。

Answer 1

Sub Copy_Filtered_Cells()
Set from = Application.InputBox("Select range of Cell to copy", Type:=8).SpecialCells(xlCellTypeVisible)
'Selection.SpecialCells(xlCellTypeVisible).Select
'Set from = Selection
Set too = Application.InputBox("Select range to Paste Copied Cells", Type:=8)
For Each Cell In from
    Cell.Copy
    For Each thing In too
        If thing.EntireRow.RowHeight > 0 Then
            thing.PasteSpecial
            Set too = thing.Offset(1).Resize(too.Rows.Count)
            Exit For
        End If
    Next
Next
End Sub    

それはあなたのために働くかもしれません。