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

[µo°Ý] ½Ð±ÐVBA ¨â¦æÀx¦s®æªº¦r¦ê¦X¨Ö°ÝÃD~~~~~~~~~~

½Ð±Ð¤@¤U!  
¨Ì¤W¨Ò ­Y¬O­n¦b²Õ¦X¦r¦êªº¤¤¶¡¥[¤J¤@­Ó´î¸¹"-" , µ{¦¡­n«ç¼Ë­×§ï ?
¦p¤U:
1-¾ô¥»
2-°ª¤s
3-©£¥Ð

TOP

¦^´_ 1# ji12345678
¤£¥Î°j°é..
  1. Sub TEST()
  2.     With Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Range("B65536").End(xlUp).Row)
  3.         .FormulaR1C1 = "=trim(RC[1])&trim(RC[2])"
  4.         .Value = .Value
  5.     End With
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD