No.4ベストアンサー
- 回答日時:
>データの行数は不定です
ということなので補足しておきます。下記マクロで不定行数でも大丈夫です。
また、元のA列の並びの中に未入力行があるとうまくいきません。下記では最初に未入力行を削除し、その後で行挿入を行っています。参考までに。
Sub GyoSonyu2()
Dim rw As Long 'A列のセル
Dim rwCount As Long 'A列の値が登録された最後の行番号
Application.ScreenUpdating = False
'A列のセルが未入力ならその行を削除
rwCount = Range("A:A").SpecialCells(xlCellTypeLastCell).Row
For rw = rwCount To 2 Step -1
If Cells(rw, 1) = "" Then
Rows(rw).Delete
End If
Next
'A列でセルの値とその前のセルの値が違えばば行挿入
rwCount = Range("A:A").SpecialCells(xlCellTypeLastCell).Row
For rw = rwCount To 2 Step -1
If Cells(rw, 1) <> Cells(rw - 1, 1) Then
Rows(rw).Insert
End If
Next
Application.ScreenUpdating = True
End Sub
ありがとうございます。
返事、遅れてすいません。
みごとですね。
そのまま、使わせていただきます。
勉強になりました。
ありがとうございました。
No.3
- 回答日時:
VBAで解らない時は、マクロを新規に作成して、そのプログラムを編集で見ると解ります。
やり方はお分かりと思いますが、念のため書いておきます。
「1行を挿入するマクロ」です。
1.「ツール」「マクロ」「新しいマクロの記録」を順にクリックしていきます。
2.「ショートカットキー」を入力して、「OK」
3.「行番号」をクリックして、
4.「挿入」「行」をクリック
5.「マクロ終了ボタン」をクリックして終了です。
「マクロ記録終了」ボタンが表示されていないときは、「表示」「ツール」「記録終了」をクリックすると、表示されます。
つぎに、「ツール」「マクロ」「マクロ」「編集」で
プログラムが表示されます。
これを読むとどのようにプログラムすればよいかわかります。
老婆心ながら・・・・
参考URL:http://www2.odn.ne.jp/excel/index.html
ありがとうございます。
そうやれば、簡単にできるんですね。
なにしろ、初心者なもので、
知りませんでした。
参考になりました。
ありがとうございました。
No.2
- 回答日時:
telmiさん、おはようございます。
前回のご質問の反対ですね。
行番号を削除しなければ、簡単なのに・・・。
(行番号ソートでもとに戻ったはずですよ)
行番号を付与しない方法です。
[データ]-[集計]を利用します。
1.見出し行を追加します。
2.[データ]-[集計]をクリックします。
3.[グループの基準]にtの値の列を指定します。
4.[集計の方法]は合計でもデータの個数でもOK。
5.[集計するフィールド]の適当でOK。
6.ダイアログの[OKボタン]を押下。
7.集計表が表示されますから、左側に追加表示された集計レベル(正式名?)の
「2」をクリックします。
8.グループの計の行だけが表示されますから、1行ごとに内容を消去してください。
ここで一度にすべて消去すると肝心のデータも消えます。
必ず1行ごとに消去してください。
9.集計レベル(正式名?)の「3」をクリックします。
各グループの計の行が「空白行」となりました。
10.シート全体をコピーし、別シートに[形式を選択して貼り付け]-[値]でOK。
えいやっ!で実現する、姑息な手段です。
返事、遅れてすいません。
なるほど。
そんなやりかたが、あるんですね。
面倒ですがそれで、できますね。
参考になりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 計算機科学 急ぎです、大学数学再帰の問題難しくてがわからないです。 以下の4つの文字列を連結して新たに生成できる 1 2023/05/17 20:11
- レディース アニエス・ベーについて教えてください。 Tシャツのサイズ表記に1.2.3のほかにT1.T2.T3とT 1 2022/05/17 18:13
- C言語・C++・C# ポインタの型変換、どうやるんでしたっけ? 2 2022/03/28 11:00
- 哲学 日本語は 言語類型として あたかも始原のごとくである 3 2022/05/29 04:41
- 物理学 文字説明になってしまうのですがすいません。物理の問題です。 重さWの荷物を吊るす。 重さを吊るしたと 2 2023/07/06 02:40
- MySQL うまくいきません教えてくださいお願いしますSQLです。クエリ構文です。 1 2023/07/07 12:39
- MySQL SQLです。こんな感じですか?あってますか? うまくいきません教えてくださいお願いします 1 2023/07/08 15:27
- その他(教育・科学・学問) エクセル関数について 2 2022/12/23 08:59
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- 物理学 温度 T1, T2の二つの熱源間の間に可逆サイクルを働かせるとき、出入りする熱量をQ1, Q2とする 2 2023/06/30 09:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
甲状腺が腫れているが血液検査...
-
小数点以下を繰り上げたものを...
-
2つの数値のうち、数値が小さい...
-
エクセル指定した範囲からラン...
-
EXCELで条件付き書式で空白セル...
-
【Excelで「正弦波」のグラフを...
-
リンク先のファイルを開かなく...
-
これって喉仏ですか? 私は女性...
-
Excelで""で囲む方法
-
エクセルの質問。 対象範囲...
-
EXCELで式からグラフを描くには?
-
MIN関数で空白セルを無視したい...
-
エクセルのラベルの値(文字列...
-
値が入っているときだけ計算結...
-
エクセルのグラフで、値0のとき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
精子が黄色?
-
EXCELで条件付き書式で空白セル...
-
至急!尿検査前日にオナニーし...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
甲状腺が腫れているが血液検査...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
口の中に黒い血の塊
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
おすすめ情報