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

[µo°Ý] ½Ð°Ý¦p¦ó¼¶¼gVBA¡A±NªÅ®æ¶ñº¡ (¤w¸Ñ¨M)

¦^´_ 1# sax868
  1. Sub zz()
  2. LR = [A2].End(xlDown).Row
  3. On Error Resume Next
  4. Set Rng = Union(Range("C2:C" & LR), Range("E2:E" & LR)).SpecialCells(xlCellTypeBlanks)
  5. For Each X In Rng
  6.   X.Replace "", X.Offset(-1, 0)
  7. Next
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE

¶È¥Î¤@¦¸¤½¦¡¶ñº¡¾ãÄ檺ªÅ®æ
¦A¥Î¤@¦¸­È¶ñº¡¾ãÄ檺¤½¦¡

TOP

¦^´_ 5# GBKEE

«u§r! ³o´N¬OVBA¦UºØ»yªk¤£ºë¼ô©Ò³y¦¨ªºµ²ªG! (¤£¹L³o¦¸¤]¤Ó¦h¦¹¤@Á|¤F)
½ÐGBKEEª©¥D¦h«ü¾É!

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD