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

[Radin]

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

[Radin]

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

سلام نمی دونم چرا کد زیر جواب نمی ده

sub fillrows
for each c in range("a1:a20")
 if  isempty(c) then
c=c.offset(-1,0)
end if
next
end sub 

[hr]
سلام حل شد یک value اضافه شد و حل شد

Sheet1.Select
For Each c In Range("a1:a30")
If IsEmpty(c.Value) Then
c.Value = c.Offset(-1, 0).Value
End If
Next 

[Abrand]

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

Sub ss1()
'
' ss1 Macro
'

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

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