کمک در پر کردن سطر های خالی با عدد بالایی آن

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • Radin

    • May 2012
    • 17

    کمک در پر کردن سطر های خالی با عدد بالایی آن

    سلام در فایل پیوست توضیح دادم که چی میخوام لطفا کمک کنید
    پیوست
  • Radin

    • May 2012
    • 17

    #2
    RE: کمک در پر کردن سطر های خالی با عدد بالایی آن

    سلام نمی دونم چرا کد زیر جواب نمی ده
    کد PHP:
    sub fillrows
    for each c in range("a1:a20")
     if  
    isempty(cthen
    c
    =c.offset(-1,0)
    end if
    next
    end sub 
    [hr]
    سلام حل شد یک value اضافه شد و حل شد
    کد PHP:
    Sheet1.Select
    For Each c In Range("a1:a30")
    If 
    IsEmpty(c.ValueThen
    c
    .Value c.Offset(-10).Value
    End 
    If
    Next 

    Comment

    • Abrand

      • March 2012
      • 7

      #3
      RE: کمک در پر کردن سطر های خالی با عدد بالایی آن

      Sub ss1()
      '
      ' ss1 Macro
      '

      '
      Range("A1:A33").Select
      Range("A33").Activate
      Selection.SpecialCells(xlCellTypeBlanks).Select
      Selection.FormulaR1C1 = "=R[-1]C"
      End Sub

      ببين اين به دردت ميخوره يانه (فقط ارتباط ماكروت رو به كليد بده)

      Comment

      Working...