vba - 如何使用 VBA 在 Excel 中筛选的单元格中选择和粘贴值

Question

请参见下图，其中在 a 列中应用过滤器以选择项目“b”，然后在评论字段中更新“确定”。你知道如何通过宏来完成吗？另外，我需要知道如何在打开和过滤过滤器时选择列中的可见单元格。

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    

它可能对你有用。