Ho un foglio di calcolo Excel con migliaia di righe. Voglio selezionare ogni settima riga da quel foglio di calcolo. (Con “selezionare” intendo eliminare tutte le altre righe, o copiare le righe selezionate in un nuovo foglio di lavoro).
Qual è il modo più semplice per farlo in Excel 2003?
Vedi anche: Seleziona ogni ennesima riga in Numeri
Davvero solo per finire l'idea iniziata da Randolph Potter….
Per la cronaca, non credo che potresti mai arrivare a questo registrando. La registrazione di macro è un buon modo per familiarizzare con il modello a oggetti di Excel, ma non un ottimo modo per scrivere funzioni riutilizzabili.
Option Explicit
'A simple test that copies every 7th row from the active sheet to a new sheet.
Sub SimpleTest()
Dim r As Range
Dim ws As Worksheet
Set r = GetEveryNthRow(7)
If Not r Is Nothing Then
Set ws = Worksheets.Add(Before:=Sheets(1))
r.Copy ws.Range("A1")
Else
MsgBox "Nothing came back from GetEveryNthRow"
End If
Set ws = Nothing
Set r = Nothing
End Sub
'
Function GetEveryNthRow(ByVal NthRow As Long) As Range
Dim keepRows As Range
Dim r As Range
If NthRow > 0 Then
Set keepRows = Rows(1)
For Each r In ActiveSheet.UsedRange.Rows
If (r.Row Mod NthRow) = 0 Then
Set keepRows = Union(keepRows, Rows(r.Row))
End If
Next r
Set GetEveryNthRow = keepRows
Else
MsgBox "The row multiple provided must be greater than 0"
End If
Set keepRows = Nothing
End Function
per selezionare ogni 7° riga c'è un MODO PIÙ FACILE: nelle prime 7 righe della vostra colonna tranne una (la prima) scrivete qualcosa all'interno. Poi selezionate queste 7 righe e copiatele su tutta la colonna. Ora quello che vi serve è solo andare su SELECT->GO TO SPECIAL->selezionare BLANKS->OK Avete ogni 7 righe una selezione. Ora potete fare quello che volete. Buon divertimento!
per ogni 7a riga,