ฉันมีสเปรดชีต Excel ที่มีหลายพันแถว ฉันต้องการเลือกทุก ๆ 7 แถวจากสเปรดชีตนั้น (โดย "เลือก" ฉันหมายถึงลบแถวอื่น ๆ ทั้งหมดหรือคัดลอกแถวที่เลือกลงในแผ่นงานใหม่)
วิธีที่ง่ายที่สุดในการทำเช่นนั้นใน Excel 2003 คืออะไร
ดูเพิ่มเติม: เลือกแต่ละแถวที่ n ในเบอร์
คำตอบ:
โดยส่วนตัวฉันจะบันทึกแมโครเพื่อทำสามหรือสี่บรรทัดแรก (ที่เพิ่มขึ้น 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
...
จริงๆเพิ่งเสร็จสิ้นความคิด Randolph Potter เริ่ม ....
สำหรับการบันทึกฉันไม่คิดว่าคุณจะได้สิ่งนี้ด้วยการบันทึก การบันทึกแมโครเป็นวิธีที่ดีในการทำความคุ้นเคยกับ Excel Object Model แต่ไม่ใช่วิธีที่ดีในการเขียนฟังก์ชั่นที่ใช้ซ้ำได้
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 แถวนี้และคัดลอกลงในคอลัมน์ทั้งหมด ตอนนี้สิ่งที่คุณต้องการเพียงไปที่ SELECT-> ไปที่พิเศษ -> เลือก BLANKS-> ตกลงคุณมีการเลือกแต่ละแถว 7 แถว ตอนนี้คุณสามารถทำสิ่งที่คุณต้องการ สนุก!
สำหรับทุก ๆ แถวที่ 7