![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.4ベストアンサー
- 回答日時:
こうかな?
Sub aaa()
Dim ws As Worksheet
Dim rge As Range
Dim r As Long
Set ws = ActiveSheet
Set rge = ws.Range("A:A").Find("計") 'A列で検索
If rge Is Nothing Then Exit Sub '見つからない場合は中断
r = rge.Row '見つかったら行番号を取得
'計というセルに挿入
ws.Range("A" & r & ":B" & r).Insert xlDown
'コピーする
ws.Range("A" & (r + 2) & ":B" & (r + 2)).Copy
'値だけ貼り付け
ws.Range("A" & r & ":B" & r).PasteSpecial xlPasteValues
'合計欄の更新も忘れずに
ws.Range("B" & (r + 1)).Formula = "=sum(B1:B" & r & ")"
End Sub
自力ではc列に補助的に関数使ってようやく完成できた・・・と思ってたのですが、
phoenix343さんの構文で完璧です!感動しました!
本当にありがとうございます。
No.3
- 回答日時:
質問内容に矛盾点が
>4行目を常に計行の上に挿入
質問文の例にこの動作を行うと合計行が4行目になりますよね、次にマクロを実施すると4行目の合計行の上に合計行を挿入する形になってしまいます。
A , B
1: 1月,1000円
2: 2月,2000円
3: 3月,3000円
4: 計,SUM(B1:B2)SUMの引数がどう変化するかは不明ですが
5: 計,SUM(B1:B2)
こんな形になりますが、これが目的ですか?
この回答への補足
説明不足ですいません。
初期の状態では4行目ですが、マクロを行うごとに1行ずつ下がりますので1回行うと5行目、2回行うと6行目をコピーして挿入、といった形になります。ですので1回行った場合の表示が
A , B
1: 1月,1000円
2: 2月,2000円
3: 3月,3000円
4: 計,SUM(B1:B3)
5: 月,円
で、次は5行目を4行目の上に挿入して
A , B
1: 1月,1000円
2: 2月,2000円
3: 3月,3000円
4: 4月,4000円
5: 計,SUM(B1:B4)
6: 月,円
という形にしたいのです。
No.2
- 回答日時:
Sub aaa()
Dim i As Integer, j As Integer
Dim kei As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Rows(i - 1).Insert
Rows(i + 1).Cut Rows(i - 1)
For j = 1 To i - 1
kei = kei + Cells(j, 2).Value
Next j
Cells(i, 2).Value = kei
Cells(i + 1, 1).Select
End Sub
ご質問の意図に合ってますでしょうか。
この回答への補足
あと、マクロ実行後、計行の合計値がsum関数でなく、数値になってしまうのですが、これはsum関数で残しておくのは無理なんでしょうか?
補足日時:2009/03/07 12:086行目をcutでなくcopyにすると期待していたものに近くなりました!
マクロは記録しかしたことがなくてVBA(?)はさわった事なかったんですが勉強になりました。まだ内容そのものは理解しきれてないんですが、解読してみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Visual Basic(VBA) vbaマクロについて 【1.csv】をもとに【商品.csv】に有るものを【有り.csv】として名前を 1 2023/05/18 07:58
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- Visual Basic(VBA) vbaマクロについて 次のようなマクロを組みたいです。 自分は初心者なので全くわかりません。 詳しく 8 2023/05/18 18:38
- Excel(エクセル) 特定文字(数字)で行挿入、挿入された行で合計したい 2 2023/03/13 14:30
- Excel(エクセル) 非表示にしたい行をグループ化して折り畳み 4 2022/09/17 20:17
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
太ってる女とのSEX
-
恋人などと挿入したまま入眠し...
-
挿入中の潮について、ものすご...
-
40代男性が好むSEXはどんなもの...
-
もう少しでイケそうな時、どん...
-
嫁がバイブでしか逝きません。
-
女性の方へ、イクことと女性の...
-
直ぐに挿入をせまる彼女
-
処女卒業して3ヶ月の大学生です...
-
入れてる最中に、『めっちゃ濡...
-
挿入時、キツっって言いながら...
-
AVって、本当に挿入してるんで...
-
女性の方 イクようになったき...
-
あそこが狭い女性とのHについ...
-
挿入のときに力を抜く方法はあ...
-
手マンと挿入どっちが気持ちい?
-
すぐ乾いて挿入できません
-
いきそうでいけない・・・
-
入ってるかどうかわからない
-
手コキとマンコに挿入するのと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
恋人などと挿入したまま入眠し...
-
太ってる女とのSEX
-
40代男性が好むSEXはどんなもの...
-
直ぐに挿入をせまる彼女
-
挿入中の潮について、ものすご...
-
入れてる最中に、『めっちゃ濡...
-
もう少しでイケそうな時、どん...
-
挿入時、キツっって言いながら...
-
処女卒業して3ヶ月の大学生です...
-
女性の方へ、イクことと女性の...
-
女性の方 イクようになったき...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
嫁がバイブでしか逝きません。
-
手コキとマンコに挿入するのと...
-
いきそうでいけない・・・
-
AVって、本当に挿入してるんで...
-
すぐ乾いて挿入できません
-
手マンと挿入どっちが気持ちい?
-
挿入のときに力を抜く方法はあ...
おすすめ情報