- ベストアンサー
エクセルで空白行にSUM関数を自動入力する方法
mar00の回答
- mar00
- ベストアンサー率36% (158/430)
A列が空白の時、C列にSUM関数が入るようになっています。 Sub Macro1() COUNTER = 0 For i = 1 To Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row COUNTER = COUNTER + 1 If IsEmpty(Range("A" & i)) Then aa = (COUNTER - 1) * -1 Range("C" & i).FormulaR1C1 = "=SUM(R[" & aa & "]C:R[-1]C)" COUNTER = 0 End If Next i End Sub
関連するQ&A
- エクセルでA列セルが空白の時その行に罫線を引くには
エクセルでA列セルが空白の時、その行の下側のみに２重罫線を引くマクロを教えて下さい。 色々試しましたがうまくいきません。例えば下記の様な表で３行目、７行目、１２行目の各下側にのみ２重罫線を引くマクロです。行数と空白行は、日々取り込んでいるデータによって変わります。知恵をお貸し下さい。（A列空白セルのＣ列にはSUM関数を入れております。うまく表記が出来ませんので念のため） A列 B列 Ｃ列 1行 123 酒 100 2行 123 酒 100 3行 ======================== 4行 215 ビール 200 5行 215 ビール 200 6行 215 ビール 200 7行 ========================= 8行 324 ワイン 300 9行 324 ワイン 300 10行 324 ワイン 300 11行 324 ワイン 300 12行 ========================
- 締切済み
- その他MS Office製品
- エクセルで空白行に１個上の行を一度にコピー
A列 B列 Ｃ列 1行 123 酒 100 2行 123 酒 100 3行 (合計) 4行 215 ビール 200 5行 215 ビール 200 6行 215 ビール 200 7行 (合計) 8行 324 ワイン 300 9行 324 ワイン 300 10行 324 ワイン 300 11行 324 ワイン 300 12行 (合計) (合計)表記の行のA列B列にひとつ上の行の数字文字をコピーし、かつ合計の行だけ残し、 他の行は削除したいのですが。一度にできる良い方法がございましたら教えて頂けませ んでしょうか。要は合計だけの表作成です。 実際のデータは３千行ほどあります。何卒よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- エクセルの行追加
下記の表でＡ列の番号が変わったところに自動で行を挿入する方法を教えて下さい。 A列 B列 1行 123 酒 2行 123 酒 3行 123 酒 4行 215 ビール 5行 215 ビール 6行 324 ワイン 7行 324 ワイン 3行目の下、5行目の下に一度に行を挿入したいのですが。 実際のデータは３千行ほどあり、番号も１００種類ほどあります。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- EXCELでSUM関数が使えません。
Windows2000でEXCEL2000を使用しています。 Access2000の列をコピーしてExcelのシートに貼り付けをしました。 一番下のセルにSUM関数を入れて合計を出そうとしているのですが、０になってしまいます。データのセルをダブルクリックすると、その数字だけは反映されるのですが、行数が多いのですべてをクリックしていくのは難しく感じます。 上のような状況下で、自動的に合計を算出させる方法はないでしょうか。 ご存知の方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel 空白行を上に詰めるマクロ
関数を使用して、sheet1からsheet2に必要なデータを抜き取りました。 sheet２のセルには関数が入っています。 sheet2の抽出データには１行単位（まれに２～３行続けて）空白が発生します。 この行を削除し、かつ上に詰めて表示をしたいのですが、下記の条件で実行可能でしょうか？ （例） sheet1 ⇒ sheet2 A B C A B C 1 あ い う 1 あ い か 2 か 2 （空白行） 3 き く け 3 き く し 4 こ さ し 4 （空白行） ●２行目、４行目を削除し、且つ５行目以降に入力されている関数は削除したくない ●空白行削除のマクロは自動？（sheet1のデータを変更したら）で実行できるようにしたい よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで空白行を挿入するには
一つの列に２００ほどデータがあるとします。 そこで１行おきに空白行を挿入していきたいのですが手でいちいち空白行を挿入していてはらちがあきません。 関数等も含めて、なにか良い方法はないでしょうか。 例 セルＡ１ セルＡ２ セルＡ３ 以下続く ↓ セルＡ１ 空白行（セル） セルＡ２ 空白行（セル） セルＡ３ 空白行（セル） 以下続く といった具合です。
- ベストアンサー
- オフィス系ソフト
- 入力されるまで合計セルを空白にしたいのですが
A5：A120にデータ入力し、A121に「Ｓｕｍ」で合計を だしています。B列からM列も同様になっています。 列のデータは1～0の数字だけです。 当該列のセルが未入力だと当然合計欄は「0」に表示 されています。 この場合、「0」が目障りなので、いずれかのセルにデータ が入力されない限り、空白表示にしておきたいのです。 どんな関数をどう使えば良いのでしょうか？
- 締切済み
- その他(Windows)
- 関数 ２行ずつを空白にする
下記のようにA列を２つの行を固まりとして、B列の順序で空白を２つずつ作る。このようにするために、関数を使ってやりたいのですが、教えて頂けませんか。よろしくお願い致します。 A列------B列 1--25-------25 2--40-------40 3--125-- 4--68---- 5--22-----125 6--48------68 7--72---- 8--113--- 9--458----22 10--76-----48
- ベストアンサー
- Excel（エクセル）
- Excel検索等関数
Excelのデータで同じ列の中に番号が重複している値を探し出しなおかつ任意の行数に出す関数はありますか？ Sheet1 ｜Sheet2 Ａ Ｂ ｜ Ａ Ｂ １ あ 10 ｜ １ あ 10 ２ あ 11 ｜ ２ あ 11 ３ い 21 ｜ ３ い 21 ４ う 22 ｜ ４ ←A4:b4は、「い」が2行ないので空白 ｜ ５ う 22 ｜ ６ ←A6:b6も、「う」2行ないので空白 このように、縦の重複したセルを検索して、指定行数内の場合は、空白となる関数式があればお教えください。
- ベストアンサー
- オフィス系ソフト
- エクセルで数字が入力されている行の数を出したい
エクセル２０００を使用しています。 数百行くらいのデータがあります。 C列は数字の１、２、９、が入力、又は空白となっています。 最下行３行にそれぞれ１、２、９が入っている行の数を出したいの ですが、どのようにすれば良いのでしょうか？ １、２、９の和を求めているのでは無く、入力されている行数を 出したいのです。
- 締切済み
- オフィス系ソフト