Scott090

¦^´_ 3# Airman

      ¸Õ¸Õ³o­Ó»yªk
      if instr("???§¡­È???", "§¡­È")<>0 then .......

Scott090

¦^´_ 5# Airman


    ¤£ª¾­þ¤@­Ó¬Oª©¥D»Ý­n­nªº¡C
     1. ¦³"§¡­È" ¤G¦r´N°õ¦æ¡G
          if instr("???§¡­È???", "§¡­È") <>0 then
               [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next
        end if
101:

      2.  ¦³³sÄòªº "§¡­È" ¤~·|°õ¦æ¡G
         if UBound(Split("???§¡­È§¡­È???", "§¡­È"))>1 Then
            [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next
        end if
101:

     °²¦p¤GªÌ³£¤£¬O ¡A½Ð©¿²¤¤£¥Î²z·|

Scott090

¦^´_ 11# Airman

      ©Ó9#¡G
      ²q´ú ÀɦW ÅÜ¼Æ A ¤ºªº¦r¦ê«¬ºA¥i¯à¬O¡G
       ¨S¦³"§¡­È"¤G¦r¡G                     "?????????????"  ©Î
       ¶È¦³"§¡­È"¤G¦r¨S¦³¦A­«½Æ¡G "?????§¡­È?????"
       °²¦p¬O³o¼Ë¡A½Ð¥Î¡G   
      If  instr(A,"§¡­È")<>0  Then
            [B1:BK1].Clear
            For j = 1 To 49         '§¡­È
                Cells(1, j + 1) = j
            Next
          End If