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

[µo°Ý] ¦r¦ê°ÝÃD

[µo°Ý] ¦r¦ê°ÝÃD

½Ð°Ý¤@¤U:
             §ÚªºÀx¦s®æCells(1,"A") = ¥«¥b¾ÉÅé,Cells(1,"B") = Âd¥b¾ÉÅé,Cells(1,"C") = #NAME?
             §Ú­n¥Î¤°»ò¤è¦¡
             1.¥ý§PÂ_²Ä¤@¦r¤¸¬°  ¥« ©Î Âd¡A¦b¶i¦æ¨BÆJ2 ¡A­Y²Ä¤@¦r¤¸¤£¬O ¥« ©Î Âd ¡A«h¤£¶i¦æ³B²z¡C
             2.¨ú¦r¦ê²Ä¤@­Ó¦r¤¸¨Ã¥B§R°£²Ä¤@­Ó¦r¤¸¡A¦A§â¨ú¥X¦r¤¸©ñ¤J­ìÀx¦s®æªº¦r¦ê¤§«á¡C
             Åܦ¨: Cells(1,"A") = ¥b¾ÉÅé(¥«),Cells(1,"B") = ¥b¾ÉÅé(Âd),Cells(1,"C") = #NAME?
             ÁÂÁÂ

¦^´_ 1# spermbank
  1. Sub SS()
  2. For Each A In [A1:C1].Resize([A1].End(xlDown).Row, 3)
  3.   If Left(A, 1) = "¥«" Or Left(A, 1) = "Âd" Then
  4.      A.Value = Mid(A, 2, Len(A) - 1) & "(" & Left(A, 1) & ")"
  5.   End If
  6. Next
  7. 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