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

[µo°Ý] ¦Û°Ê¶ñº¡

[µo°Ý] ¦Û°Ê¶ñº¡

¥»©«³Ì«á¥Ñ kasa ©ó 2018-2-11 01:31 ½s¿è

¥­±`keyinÀËÅç¼Æ¾Ú,¥u·|¥´¤@¦¸«~¸¹&«~¦W,µM«á¦A§â©ÒÄÝÀËÅ綵¥Øªº¼Æ¾Ú¶ñ¤J
²Ö¿n¤@¬q®É¶¡«á,­n³]­p¥¨¶°¥i¦Û°Ê¶ñº¡A/BÄæ¦ì¤À§O¤£¦Pªº«~¸¹&«~¦W
½Ð¦U¦ì¤j¤jÀ°¦£«ü¾É¦p¦ó¼¶¼g
·PÁÂ test.zip (6.75 KB)

¦^´_ 1# kasa
  1. Option Explicit
  2. Sub Ex()
  3.     With Range("a1").CurrentRegion.Range("a:b")
  4.         If .Cells.Count <> Application.CountA(.Cells) Then
  5.             .SpecialCells(xlCellTypeBlanks) = "=r[-1]c"
  6.         End If
  7.         .Value = .Value
  8.     End With
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ªì¯Åªº¼gªk
Sub ex()
For i = 2 To Cells(4 ^ 8, "C").End(xlUp).Row
    If Cells(i, "A") = "" Then Cells(i, "A") = Cells(i - 1, "A").Value
    If Cells(i, "B") = "" Then Cells(i, "B") = Cells(i - 1, "B").Value
Next
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

·PÁÂGBKEE¤j¤j»PML089¤j¤j
GBKEE¤j¤j«ü¾Éªº¬O¥i¤@¦¸©Ê¨Ï¥Î,ML089¤j¤j«ü¾Éªº¬O¥i²Ö¿n¤ÏÂФ£¦P¤ÑÀËÅç¼Æ¾Ú¨Ï¥Î
§Ú¥¿¦b·Q¦p¦ó¿Ä¦X¨âºØ¼gªk~~
·PÁÂ~~

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD