A B C
1月 金額 2月 金額 3月 金額
1 5 100 15 300 ・・
2 3 60 15 300 ・・
という表があります。
この表(シート1)を、別のシート(シート2)にコピーして、
「金額」行の隣に1行追加したいのです。。。
Sub 貼付け()
Sheets("シート1").Select
Cells.Select
Selection.Copy
Sheets("シート2").Select
ActiveSheet.Paste
End Sub
Sub 検索後挿入()
Dim objRange As Range
Set objRange = Columns("2:2").Find("金額")
として、金額を探すまではできました。
金額セルの隣を選択し、3行追加するにはどうしたらいいでしょうか・・。どうぞ宜しくお願いします!
No.4ベストアンサー
- 回答日時:
こんばんは。
私も、#2さんと同様に良く分かりません。
>Set objRange = Columns("2:2").Find("金額")
まず、これが分かりません。つまり、タイトル行は、2行目にあるということですか?表と違うようですが。
Find メソッドは、意外に取り扱いがややこしいです。
>金額セルの隣を選択し、3行追加するにはどうしたらいいでしょうか・・。
>金額行の、右隣に3行追加、です。
3列なら意味が分かりますが、その後は、探せなくなるのではありませんか?
結果、どのようになさりたいのですか?
おそらく、
1
2 1月 金額 2月 金額 3月 金額
3 5 100 15 300 ・・
4 3 60 15 300 ・・
↑ ↑ ↑
この部分に、3列入れたいのではありませんか?
Sub ColumnInsert()
Dim i As Integer
Application.ScreenUpdating = False
'2行目で検索
For i = Range("IV2").End(xlToLeft).Column To 1 Step -1
If InStr(Cells(2, i).Value, "金額") > 0 Then
'3列追加
Cells(2, i + 1).Resize(, 3).EntireColumn.Insert
End If
Next i
Application.ScreenUpdating = True
End Sub
その通りです!!
やりたいことは、金額の右となり列に3行追加です。
教えて頂いた通りにできました!
本当にありがとうございました。
きちんと基本から勉強します、
No.5
- 回答日時:
>言葉足らずで大変失礼しました。
>金額行の、右隣に3行追加、です。
ことば足らずでなく、エクセルの基本的な行と列の表現に混乱している。VBAまでやる方が意外です。
これでは意味がわかりません。行と列を取り違えているのでは。
金額列のすぐ右の列に2列挿入では。
挿入されると左から第2番目の金額の位置がずれてコーディングしにくくなります。
右列から、列挿入をやればどうですか。
Sub test01()
c = Range("Z1").End(xlToLeft).Column
MsgBox c
For i = c To 2 Step -2
Cells(1, i + 1).EntireColumn.Insert
Cells(1, i + 1).EntireColumn.Insert
Next i
End Sub
A1:K1が
ABC1月金額2月金額3月金額
4月金額5月金額
のようにABCがA列、後は月と金額がペアになっているという前提です。
上記の、Z1はデータ列の最右列よりさらに右の列を指定してください。
No.3
- 回答日時:
#1です。
Range(Cells(objRange.row,objRange.column+1),Cells(objRange.row+2,objRange.column+1)).Insert Shift:=xlDown
No.2
- 回答日時:
「金額行の"隣"に」という表現から察するに、「金額"列"の"隣"に」の意味なのでしょうか。
。。1行目の表示が
[1月][金額][(挿入された列)][2月][金額][(挿入された列)][3月][金額][(挿入された列)]
という感じにしたいということ?
であれば、簡単ですがこんな感じではいけませんか?
Sub 列挿入()
Range("C1,E1,G1").EntireColumn.Insert
End sub
勘違いだったらごめんなさい。
なお「金額」という文字列を検索させる意味がよくわかりませんが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
VBAで検索して、行をコピー&追加したい
Excel(エクセル)
-
VBAで検索して指定の位置に行を挿入したい
Visual Basic(VBA)
-
-
4
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
5
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
6
■VBAで条件による行挿入方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
請求書の金額が異なる場合の、...
-
「初穂料はお志」の「お志」と...
-
出産祝いプレゼントを有志であ...
-
数百万円って いくらでしょうか?
-
【エポスカード】支払金額確定...
-
1976年の7万円は現在だといくら...
-
クイックペイは、スマホがモバ...
-
給与所得差の保険料控除申告書...
-
ココナラでDMで相談してたんで...
-
給与/報酬の「支給額」と「支...
-
期日前投票立会人の仕事
-
領収書を請求した方が良いので...
-
振込金額(税引後)から支払金...
-
エクセルの計算機能の使い方
-
雇用保険にずっと入っていなか...
-
13万くらいのYAMAHAの電動自転...
-
内金の返却について
-
Excelで原価計算
-
誕生日とか記念日って面倒くさ...
-
FROM句の構文エラー ACCESS SQL
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数百万円って いくらでしょうか?
-
請求書の金額が異なる場合の、...
-
まいばすで働いてたんですが、...
-
【エポスカード】支払金額確定...
-
出産祝いプレゼントを有志であ...
-
VBA テキストボックスに3桁カ...
-
word&excel 2007での差込印刷で...
-
「初穂料はお志」の「お志」と...
-
振込の時の領収書の書き方
-
1976年の7万円は現在だといくら...
-
クイックペイは、スマホがモバ...
-
FROM句の構文エラー ACCESS SQL
-
給与/報酬の「支給額」と「支...
-
源泉徴収票の「給与所得控除後...
-
振込金額(税引後)から支払金...
-
期日前投票立会人の仕事
-
内金の返却について
-
見積りNETを伝える時は御社...
-
Excelで原価計算
-
抽出条件でデータが一致しませ...
おすすめ情報