ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó¤j¶q³sµ²sheet¸ÌªºÀx¦s®æ

¦^´_ 20# syuan
¨S¦³¿ù»~°Ú!
  1. Sub Ex()
  2.     Dim A As Range
  3.     With Worksheets("Sheet1")
  4.         .[b5] = "JIS"          '´ú¸Õ¥Î
  5.         For Each A In .UsedRange
  6.             If InStr(A.Value, "JIS") > 0 And A.Value <> "" Then
  7.            'If InStr(A.Value, "JIS ") > 0 And A.Value <> "" Then '³o¬O§Aªºµ{¦¡½X
  8.                 MsgBox A.Address
  9.             End If
  10.         Next
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD