![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセル2010を使用しております。
初歩の質問になってしまいますが回答よろしくお願いいたします。
A行にデータが約1000件入っていて、これを4行ずつ削除したいと思っています。
形としては最終行から不要な4行(セルに入っている文字数字はランダムです)
を削除して2列上に動いて、A2まで削除したら止まる
でいいと思っているのですが、複数行指定から躓いております。
よろしければコードを教えて頂けませんかお願い致します。
方法がわからない現在は現在は2~5行指定デリート 7~10指定デリート… で手動でやっております(汗)
A
1 必要
2 不要
3 不要
4 不要
5 不要
6 必要
7 不要
8 不要
9 不要
10 不要
11 必要
・
・
・
726 必要
727 不要
728 不要
729 不要
730 不要
731 必要
732 不要
733 不要
734 不要
735 不要
No.4
- 回答日時:
>現在は2~5行指定デリート 7~10指定デリート… で手動でやっております(汗)
「実際に」行っているのはそうじゃないことを、実際にエクセルを触ってもう一度ご自分の目と手で確認してください。
で、それをマクロにすると、大体こんな感じになります。
sub macro1()
dim r as long
r = 2
do until cells(r, "A") = ""
rows(r & ":" & r+3).delete shift:=xlshiftup
r = r + 1
loop
end sub
ご回答有難うございます。
こちらの記載は最初の方と似てる形になっているのですが、エクセルの動きをマクロにしたという形でしょうか。
こちらもやりたい形になっていて参考になりました。
No.2
- 回答日時:
1000行程度ならこんな感じで良いかと。
行数が、5で割ると1余る行のみ残して削除しています。
なお、削除は1行づつやってます。
Sub Sample()
Application.ScreenUpdating = False
nLast = Range("A1").End(xlDown).Row
For nRow = nLast To 2 Step -1
If nRow Mod 5 <> 1 Then Cells(nRow, 1).Delete Shift:=xlUp
Next nRow
Application.ScreenUpdating = True
End Sub
回答ありがとうございます。
A列にという私の記載が悪かったのですが知りたいのは行の削除でした。
こちらの記載に関しても今後の参考にさせていただきます。
No.1
- 回答日時:
こんにちは!
データの最終行から4行削除 → 5行目を残しその2行上から4行を削除・・・
の繰り返しだとすると
Sub Sample1()
Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 5 Step -5
Rows(i - 3 & ":" & i).Delete
Next i
End Sub
こんな感じではどうでしょうか?
※ データ数は必ず5の倍数になっているという前提です。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/10/03 09:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/04 10:48
- 教えて!goo なぜ教えてgooって30以上の削除数のある要らない奴等を排除しないのでしょうか? 5 2022/06/07 15:42
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- その他(メールソフト・メールサービス) 出先でのメール受信対応と不要メールについて 2 2022/12/09 09:30
- Visual Basic(VBA) セルの変更で処理するマクロについて 1 2022/12/20 18:09
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/04/21 13:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行すると メッセージボックスが表示されて okをク 4 2023/07/05 19:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
May I ask you where you call ...
-
call homeとは何でしょうか?
-
『50歳の誕生日おめでとう』を...
-
日本人が英語が上達しないのは...
-
ALTの先生へのお礼の手紙
-
英語で「30歳の誕生日おめでと...
-
Creampieは何故クリームパイで...
-
must notに、「~のはずがない...
-
海外の人ってなんで語尾にMENっ...
-
コマンタレブーってどういう意...
-
ご縁を外国語で言うと?
-
「多くの方々」と「多くの方」...
-
単位の何本とかってなんて訳せ...
-
記号m/s の読み方を教えてくだ...
-
ケーキ屋さんの販売員をしてい...
-
I'm cold. とIt's cold.の違い
-
章立ては、部、章、節、項、だ...
-
ホストファミリーへの返信メー...
-
whether or not SV whether SV ...
-
「20代半ば」は何歳から何歳?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「多くの方々」と「多くの方」...
-
英語で「30歳の誕生日おめでと...
-
単位の何本とかってなんて訳せ...
-
『50歳の誕生日おめでとう』を...
-
must notに、「~のはずがない...
-
メールの「様、」←様の後の句読...
-
記号m/s の読み方を教えてくだ...
-
章立ては、部、章、節、項、だ...
-
ALTの先生へのお礼の手紙
-
Creampieは何故クリームパイで...
-
外国人が箇条書きする際、先頭...
-
「非対象」と「対象外」の言葉...
-
ご縁を外国語で言うと?
-
ある会合の、「第1回」、「第2...
-
agree withとagree that
-
米国の病院への紹介状の表書き
-
半角のφ
-
「ポジション」と「ポディショ...
-
数学に関して
-
covered with とcovered inの違い
おすすめ情報