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

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

¦^´_ 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 : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD