Excel：vba实现筛选出有批注的单元格

努力学习技能的LY

于 2024-10-17 01:45:25 发布

阅读量651

点赞数 9

文章标签： excel

本文链接：https://blog.csdn.net/m0_68120716/article/details/142995134

版权

实现的效果：

代码：

Sub test()
Dim cell As Range

Range("F3:I10000").Clear

lastRow = Cells(Rows.Count, "f").End(xlUp).Row
'MsgBox lastrow
For Each cell In Range("a1:a21")
    If Not cell.Comment Is Nothing Then
        'MsgBox cell.Value
        lastRow = lastRow + 1
        cell.Resize(1, 4).Copy Destination:=Cells(lastRow, "f")
    End If
Next cell

End Sub