Sub test() Dim R As Range Set R = Range("E10:E205") For Each R In R.Cells If R.CommentThreaded.Text = "3" Then MsgBox (R.Address) End If Next R End Sub.
確定! 回上一頁