Ερώτηση Excel

[Shorin]

Λοιπόν...Έστω πως υπάρχει ένα φύλλο excel το οποίο περιέχει 1000 σειρές με κάποιες μετρήσεις για παράδειγμα...Θέλω ανάμεσα σε κάθε σειρά να βάλω 2 νέες σειρές ...Υπάρχει κάποιος τρόπος να γίνει αυτό αυτόματα και να μην χρειαστεί να κάνει κάποιος 1000 φορές εισαγωγή νέων γραμμών??

 

Thanks προκαταβολικά

[gv]

tre3e auti tin macro

>
Sub Macro1()
g = InputBox("ari9mos gramon")  '1000 sto paradeigma sou
g_m = (g - 1) * 3
For i = 0 To g_m
n = 2 + 3 * i
   Rows(n & ":" & n).Select
   Selection.Insert Shift:=xlDown
   Selection.Insert Shift:=xlDown
   If n > g_m Then Exit Sub
   
Next i
End Sub

[Shorin]

GV σε ευχαριστώ πολύ ...Δούλεψε οκ...Και τώρα μια μικρή ακόμα ερωτησούλα...Πως θα πρέπει να τροποποιώσω την macro ώστε αυτό να γίνεται αυτόματα για το τμήμα που έχω επιλέξει και να μην χρειάζεται να δώσω τον αριθμό των σειρών???

 

Thanks again:)

[gv]

>
Sub Macro1()
r1 = Selection.Row
dr = Selection.Rows.Count
r2 = r1 + dr - 1

g_m = r1 + ((dr - 1) * 3)
For i = 0 To dr
n = r1 + 1 + 3 * i
Rows(n & ":" & n).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
If n > g_m Then Exit Sub

Next i
End Sub

[Shorin]

gv thanks a lot