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

¸óªí³sµ²Àx¦s®æ¨ÃªÅ¤@¦æ

¸óªí³sµ²Àx¦s®æ¨ÃªÅ¤@¦æ

¤u§@ªí2ªºA1Àx¦s®æ¤º®e¬O³s±µ¦Ü¤u§@ªí1ªºA1Àx¦s®æ(=¤u§@ªí1!A1)¡A¥i¬O¥X¨Óªº¤º®e²Ä¤@¦æ¤Î²Ä¤G¦æ¤¤¶¡­nªÅ¤@¦æ¡A½Ð°Ý­n¦p¦ó³]©w¡H¡H

¸ó¤u§@ªí³sµ²¤Î¤À¦æ°ÝÃD.zip (6.99 KB)

joyce

¸Õ¸Õ
Sub Macro1()
  i = Len(Sheet1.Range("A1"))
  A = Mid(Sheet1.Range("A1"), 1, 12)
  B = Mid(Sheet1.Range("A1"), 14, i - 13)
  Sheet2.Range("A1") = A & Chr(10) & "" & Chr(10) & B
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD