最近VBAを勉強しはじめた初心者です。
簡単なマクロを使ってエクセルシートを作成中しているのですが、以下の部分がどうしても分りません。
(1)ある列(例えばA列)に数字が入っています。
(2)その数字は、セル1個つき1桁から3桁(1から100の場合)です。
(3)「1」「1」「1」と3セル並んでいたり、「2」「2」が2セルだったりと色々です。
(4)この数字が変化したとき、例えば「1」と「2」の間、「2」と「3」の間などに、
自動的に行挿入して、空白行を作りたいと思っています。
マクロでこのような事が可能でしょうか?
もし、お分かりになる方がおられましたら、ご教示の程お願いいたします。
どうぞよろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
こんな感じでしょうか。
Sub Macro1()
Dim i As Long
'A列の最終行から上方向にA列の値を見ていき
For i = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
'前の行の値と異なる場合には
If Range("A" & i).Value <> Range("A" & i - 1).Value Then
'行を挿入します。
Rows(i).Insert
End If
Next i
End Sub
返事遅くなり申し訳有りません。
教えていただいた通り実行して順調にできました。
記述の意味まで丁寧に教えていただきありがとうございます。
その意味で今回の回答をベストアンサーとさせていただきました。
もっと勉強していきたいと思います。
ありがとうございました。
No.5
- 回答日時:
>お分かりになる方がおられましたら、
しくみはVBAをやる人はだれでも知っている。
ーー
ただ初心者が、データの入力情況で、自動で行挿入や削除やその他のことを考える・仕組みむのは、早すぎる。
イベントという概念・仕組みの問題だと思う。
また普通はA列だけ中心で考えて良いケースは余りないのでは。
初心者は興味がそちらに行くようだが、もっと基礎的で、早い時期に使わなければならない機能や記述コードが沢山在る。それを広く勉強するのが先だ。
ーー
シートタブで右クリックし、その「コードの表示」で出てくる画面に
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value = Target.Offset(-1, 0).Value Then
Else
r = Target.Row
Rows(r).Insert Shift:=xlDown
End If
Application.EnableEvents = True
End Sub
テストも少数だし、まだ改良の余地あるが、とりあえず、感じだけ。
No.4
- 回答日時:
NO3です。
一例です。
Sub 行を挿入する()
For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(i, "A") <> Cells(i - 1, "A") Then
Rows(i).Insert
End If
Next i
End Sub
返事遅くなり申し訳有りません。
教えていただいた手順でやってみましたところ、
順調にできました。
記述の意味を理解しながらもっと勉強してみます。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/01/06 08:39
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 先頭と末尾を指定して連続した数字を入力 1 2022/09/14 13:12
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
特定の条件の時に行を挿入したい
Excel(エクセル)
-
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
-
4
EXCELマクロを使い、空白行ではさまれた範囲の数字を合計
Excel(エクセル)
-
5
特定文字のある行の前に空白行を挿入したい
その他(Microsoft Office)
-
6
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
7
エクセルVBAで不一致に空白セルを挿入
Excel(エクセル)
-
8
Excel VBA 複数行を数の分だけ挿入したい
Visual Basic(VBA)
-
9
エクセルVBA、特定条件で行を追加
Visual Basic(VBA)
-
10
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
11
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
12
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
13
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
エクセル 空白セルまでの合計値を求める方法
Excel(エクセル)
-
16
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
17
VBAで重複データを合算したい
Excel(エクセル)
-
18
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
19
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
excelのデータで色つき行の抽出...
-
エクセル マクロで数値が変っ...
-
AのセルとB行を比較して、一致...
-
結合されたセルをプルダウンの...
-
Excel グラフのプロットからデ...
-
エクセル 上下で列幅を変えるには
-
特定の文字がある行以外を削除...
-
excel 小さすぎて見えないセル...
-
エクセルVBA 最終行を選んで並...
-
エクセルVBA:リストに登録した...
-
エクセルで昨日までの日付デー...
-
エクセル 数字のみ残したい
-
VBAで色の付いているセルの行削除
-
エクセル2016で時間を入力して...
-
Excelでカタカナ・ひらがな・英...
-
電話番号の入力方式が違うデー...
-
罫線の斜線を自動で引くマクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
[EXCEL]ボタン押す→時刻が表に...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
AのセルとB行を比較して、一致...
-
エクセル 上下で列幅を変えるには
-
Excel ウインドウ枠の固定をす...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
エクセル2016で時間を入力して...
-
excel 小さすぎて見えないセル...
-
EXCELで最後の行を固定
-
エクセルVBA 最終行を選んで並...
-
VBAで色の付いているセルの行削除
-
エクセルマクロで偶数行(又は...
-
エクセルのセルに指定画像(.jpg...
-
罫線の斜線を自動で引くマクロ
おすすめ情報