スプレッドシート – Excelの各n番目の行を選択します

microsoft-excel microsoft-excel-2003 spreadsheet

数千行のExcelスプレッドシートがあります。そのスプレッドシートから7番目の行をすべて選択したいと思います。(「選択」とは、他の行をすべて削除するか、選択した行を新しいワークシートにコピーすることを意味します)

エクセル2003で一番簡単な方法は？

も参照してください。Numbersの各n番目の行を選択します

　 15　 Patrick McElhaney　 2009-11-11

ベストアンサー

  1. カラムの挿入
  2. 最初の行に数式 =MOD(ROW(),7) を挿入します
  3. Copy down
  4. Copy/paste special/values
  5. データ/欲しいものをフィルタリングします（0か6か、たぶん）
  6. 残りの行を削除する フィルタを削除する 列を削除します

19　 Todd Pierzina　 2009-11-11

個人的には、最初の3～4行（もちろん7行単位）をマクロで記録して、その行を新しいシートにコピーします。そして、シート内の行数を7行単位でカウントするループを使用するようにマクロを編集します

Pseudo-code example:

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
...

3　 None　 2009-11-11

ランドルフ・ポッターのアイデアを完成させたところだ

はっきり言って、記録していても思いつかないと思います。マクロの記録は、Excelオブジェクトモデルに慣れるには良い方法ですが、再利用可能な関数を書くにはあまり良い方法ではありません

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

3　 DaveParillo　 2009-11-12

  1. 列を挿入します
  2. そこの最初の行に1を挿入します
  3. Ctrlを押したまま7行目までコピーしてください
  4. そのブロックを掴んで、最後までまた同じことをする
  5. データ/不要なものをフィルタリングし、これらを削除します
  6. 挿入した列を削除します

3　 pnuts　 2012-11-08

すべての7行目を選択するには、より簡単な方法があります：あなたの列の最初の7行ではなく、1つ（最初の）は、内部に何かを書き込みます。次に、この7行を選択し、全体の列にそれらをコピーします。これで必要なのはSELECT->GO TO SPECIAL->SELECT BLANKS->OK あなたはそれぞれの7つの行を選択しています。これで、あなたの好きなことができるようになりました。お楽しみに

1　 Davide Di Grumo　 2017-07-17

7列目ごとに

  1. カラムの挿入
  2. 1行目から6行目までに “X “を入れる
  3. 7行目に1を入れます
  4. を使用して、そのブロックをカラムに自動充填することができます
  5. その欄には「重複削除」を使用してください
  6. 1行目を削除します（1つ目の “X “のある行）
  7. 追加された列を削除

0　 Ponch　 2018-10-25

スポンサーリンク
タイトルとURLをコピーしました