½Ð°Ý¦U¦ì¹F¤H,¤p§Ì¦pªGn§PÂ_ ¬YÓ½d³ò¸ÌªºÈ¤£µ¥©óªÅ¥Õ
¨Ò¦p A1:A4 µL½×¨ä¤¤þÓ¦³È,¥unÅã¥Ü¤@¦¸°T®§´N¦n
¥ÎFOR NEXT ªº¸Ü¦pªG4®æ³£¦³È´N·|Åã¥Ü4¦¸,¯à¥unÅã¥Ü¤@¦¸°T®§´N¦n¶Ü
sub dd()
Dim xR As Range
For Each xR In [a1:a4]
If xR <> "" Then
MsgBox "¦³È"
End If
Next
End Sub |