ªð¦^¦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 : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD