אז ככה:
תכניס כפתור Command כמו שמוצג פה
http://www.excel-easy.com/vba/create-a-macro.htmlולשאלתך, בהנחה שיש 5 שורות ריקות מתחת לכל ערך, הנה הקוד המתאים:
Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integeri = 1 j = 1 Do While Cells(i, 1).Value <> "" For j = i To i + 5 Cells(j, 1).Value = Cells(i, 1).Value Next j i = i + 6 Loop End Sub
|
בהתחשב בשעה והעייפות, בדוק לפני שתריץ
@banana-man@
הנספח לאבטחת-מידע, בלוג אישי-מקצועי