No.1ベストアンサー
- 回答日時:
>初めからマクロを組んだことがないので、
一般機能でもできると思います。
検索で「■」[すべて検索]
下に検索されたセルが表示されるので
[CTRL]+[A]を押して、すべて選択します。
最後の「■」にカーソルがあるので、そのセルで右クリック。
[挿入]をクリック。[行全体]を選択して[OK]
いかがでしょう。
No.2
- 回答日時:
こんばんは。
すでに回答がでていますが、
参考までにサンプルコードを作ってみました。
'======標準モジュールに記述=========================================
Sub test()
On Error GoTo Err_
Dim c As Object
Dim myKey As String
Dim myRange As Range
Dim UnionRange As Range
Dim fAddress As String
Set myRange = Range("A1", Cells(Rows.Count, "A").End(xlUp))
myKey = "■"
With myRange
Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, _
SearchOrder:=xlByColumns, MatchByte:=False)
If Not c Is Nothing Then
fAddress = c.Address
Do
If UnionRange Is Nothing Then
Set UnionRange = c
Else
Set UnionRange = Union(c, UnionRange)
End If
Set c = .FindNext(c)
If c.Address = fAddress Then Exit Do
Loop
End If
UnionRange.EntireRow.Insert
End With
Bye_:
Set myRange = Nothing
Set UnionRange = Nothing
Set c = Nothing
Exit Sub
Err_:
MsgBox Err.Description, vbCritical
Resume Bye_
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
特定の条件の時に行を挿入したい
Excel(エクセル)
-
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
-
4
Excelで、あるセルの値に応じて行を自動挿入したい
Visual Basic(VBA)
-
5
VBAで検索して指定の位置に行を挿入したい
Visual Basic(VBA)
-
6
エクセルVBA、特定条件で行を追加
Visual Basic(VBA)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
Excelで一行おきに2行の空白行を挿入したい
その他(Microsoft Office)
-
9
Excelで特定の文字の前だけに空白を挿入したい
Excel(エクセル)
-
10
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
11
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
12
【VBA】【マクロ】 指定の条件で、空白の行を挿入
Excel(エクセル)
-
13
EXCEL VBAでテキストファイルの特定の場所にデータを書き込む方法
Visual Basic(VBA)
-
14
エクセルで特定の文字列が入った行を非表示にしたい
Excel(エクセル)
-
15
EXCELマクロを使い、空白行ではさまれた範囲の数字を合計
Excel(エクセル)
-
16
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
17
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
18
VBA 空白行に転記する
Visual Basic(VBA)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
既存のマクロをコンボボックス...
-
Excel マクロ VBA プロシー...
-
Excel2000:Ontimeメソッドで特...
-
一つのTeratermのマクロで複数...
-
EXCELマクロでのThisisWor...
-
エクセルで別のセルにあるふり...
-
エクセルVBAでNAVITIMEを使って...
-
マクロ実行時、ユーザーフォー...
-
#defineの定数を文字列として読...
-
OnTimeを使ったのですが「エラ...
-
VBAパスワードを解除するマクロ
-
毎日指定時刻に自動でエクセル...
-
エクセル マクロ 指定日の指定...
-
エクセルでA1セルに時刻をリア...
-
c言語で言うところの #define
-
エクセルのマクロについて教え...
-
VC++ 2008 EXPRESS "_T"識別子...
-
ExcelのVBA。public変数の値が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
Excel マクロでShearePoint先の...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロ実行時、ユーザーフォー...
-
wordを起動した際に特定のペー...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロで空白セルを詰めて別シ...
-
【EXCEL VBA】オートシェイプを...
-
エクセルのマクロをセルの値に...
おすすめ情報