मेरे पास हजारों पंक्तियों के साथ एक एक्सेल स्प्रेडशीट है। मैं उस स्प्रेडशीट से हर 7 वीं पंक्ति का चयन करना चाहता हूं। (चयन करके, "मेरा मतलब है कि अन्य सभी पंक्तियों को हटा दें, या चयनित पंक्तियों को एक नई वर्कशीट में कॉपी करें।)
Excel 2003 में ऐसा करने का सबसे आसान तरीका क्या है?
इन्हें भी देखें: संख्याओं में प्रत्येक nth रो का चयन करें
जवाबों:
व्यक्तिगत रूप से, मैं पहली तीन या चार पंक्तियों (7-पंक्ति वेतन वृद्धि पर, निश्चित रूप से) करने के लिए एक मैक्रो रिकॉर्ड करूंगा, और एक नई शीट पर पंक्तियों की प्रतिलिपि बनाऊंगा। फिर मैं मैक्रो को एक लूप का उपयोग करने के लिए संपादित करता हूं जो शीट में आबादी वाली पंक्तियों की संख्या 7 के एक चरण के साथ गिना जाता है।
छद्म कोड उदाहरण:
Dim i as Integer
For i = 1 To 1000 Step 7
'Add current row to selection
...
Next i
'Copy the selected rows to new sheet
...
वास्तव में सिर्फ रेंडोल्फ पॉटर ने इस विचार को खत्म किया ...।
रिकॉर्ड के लिए, मुझे नहीं लगता कि आप कभी भी रिकॉर्डिंग करके इस पर आ सकते हैं। मैक्रो रिकॉर्डिंग एक्सेल ऑब्जेक्ट मॉडल के साथ खुद को परिचित करने का एक अच्छा तरीका है, लेकिन पुन: प्रयोज्य कार्यों को लिखने का एक बहुत अच्छा तरीका नहीं है।
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
1।प्रत्येक 7 वीं पंक्ति का चयन करने के लिए एक आसान रास्ता है: आपके कॉलम की पहली 7 पंक्तियों में लेकिन एक (पहली) आप अंदर कुछ लिखते हैं। फिर आप इस 7 पंक्तियों का चयन करें और उन्हें पूरे कॉलम पर कॉपी करें। अब आपको जो कुछ भी चाहिए वह है सिलेक्ट-> गो टू स्पेशल-> सलेक्ट ब्लैंक-> ओके जाने के लिए आपको प्रत्येक 7 पंक्तियों का चयन करना है। अब आप जो चाहें वो कर सकते हैं। का आनंद लें!
प्रत्येक 7 वीं पंक्ति के लिए,