- 締切済み
Excel2007簡単に合計の数式を入力したいです
どう検索していいかも分からず、こちらの質問にも似たようなのがないようでしたので 質問させて頂きました。 右に３つ、下にたくさん（変動します）表が並んでいるんですが、 その途中に、合計の式を挿入したいと思っています。 ところが、項目も変動するもので、どう取り組めばいいか、見当もつきません。 一応、VBAで出来ればと思っています。 （VBAはまだまだ勉強中の身です） 具体的に言うと、 A ｜ B ｜ C ｜ D ｜ E ｜F 1地名 ｜個数 ｜地名 ｜ 個数 ｜ 地名 ｜個数 2登 別 ｜ ｜湯の川 ｜ ｜登別 ｜ 3湯の川 ｜ ｜北海道合計｜（SUM) ｜湯の川 ｜ 4北海道合計｜(SUM) ｜白骨 ｜ ｜北海道合計｜（SUM) 5有馬 ｜ ｜野沢 ｜ ｜有馬 ｜ 6皆生 ｜ ｜甲信越合計｜（SUM) ｜皆生 ｜ 7近畿合計 ｜(SUM) ｜総合計 ｜（SUBTOTAL)｜近畿合計 ｜（SUM) 8総合計 ｜(SUBTOTAL)｜ ｜ ｜総合計 ｜（SUBTOTAL) ・ ・ ・ 101地名 ｜ 個数 ｜地名 ｜ 個数 ｜ 102登 別 ｜ ｜湯の川 ｜ ｜ 103湯の川 ｜ ｜北海道合計｜（SUM) ｜ 104北海道合計｜(SUM) ｜白骨 ｜ ｜ 105有馬 ｜ ｜野沢 ｜ ｜ 106皆生 ｜ ｜甲信越合計｜（SUM) ｜ 107近畿合計 ｜(SUM) ｜総合計 ｜（SUBTOTAL)｜ 108総合計 ｜(SUBTOTAL)｜ ｜ ｜ 見辛くて申し訳ありませんが、こんな感じです。 基本的に、横に３つ並んでいますが、一番下の表だけ横に２つや１つになったりします。 表に通し番号はありませんが、一応順に並んでいるので、このままの状態で出来れば、と思います。 作業開始時、B・D・F列は、見出しの「個数」を除いて空白です。 数量は後から入力する仕様で、空白のままで、 地域合計・総合計にのみ数式を入力して完成させたいです。 SUMの集計範囲も、合計セルの位置も毎回上下に変動するので、 頭を抱えています…。 このSUMやSUBTOTALを、なんとか簡単に入力できる方法をご教授下さい。 VBA以外でも構いません。 よろしくお願いいたします！
- cat-cat14
- お礼率94% (35/37)
- オフィス系ソフト
- 回答数9
- ありがとう数8
- みんなの回答 （9）
- 専門家の回答
みんなの回答
- mar00
- ベストアンサー率36% (158/430)
すべてSUBTOTAL関数になってしまいますが SUBTOTAL関数が入力されているセルは計算対象外とされ無視されるのを利用しています。 Sub Macro2() For i = 2 To 6 Step 2 myRow1 = 0 myRow2 = 0 For j = 2 To Cells(Rows.Count, 1).End(xlUp).Row If IsEmpty(Cells(j - 1, i)) Then Exit For myRow2 = myRow2 - 1 If Right(Cells(j, i - 1), 2) <> "合計" And Cells(j, i - 1) <> "総合計" Then myRow1 = myRow1 - 1 Else Cells(j, i).FormulaR1C1 = "=SUBTOTAL(9,R[" & myRow1 & "]C:R[-1]C)" myRow1 = 0 End If If Cells(j, i - 1) = "総合計" Then Cells(j, i).FormulaR1C1 = "=SUBTOTAL(9,R[" & myRow2 & "]C:R[-1]C)" End If Next j Next i End Sub
- mu2011
- ベストアンサー率38% (1910/4994)
NO1です。 計数範囲が相違している理由です。 数式範囲の確定は「地域合計の範囲は一つ前の地域合計行＋１から今回の地域合計行－１」 までとしていますので２つ目以降の最初の地域合計範囲は総合計行から見出し行も含めて しまいます。（総合計も同じ） これは事前に気が付いておりましたが、総合計も見出し行も計数範囲に入りますが、 SUBTOTAL関数はこれらの値を無視できるのでこのまま回答とした次第です。
お礼
回答ありがとうございます。 まだまだ解決には至っていないのですが、 私自身、これに向き合う時間が取れなくなってきたので、 ひとまず終了とさせていただきます。 また時間がとれるようになれば、改めて質問するかもしれません。 もし、目にとまった際には、お力添えいただければ幸いです。 何度もありがとうございました！！
補足
上から一番下の表までが一つの表であれば問題ないのですが、 ご教授いただいたVBAでは、 一番上の表の1行目から、現在の表までの総合計になってしまうのです。 「地域合計の範囲は一つ前の地域合計行＋１から今回の地域合計行－１」にはなっていないようで… 質問分の例でいうと、B104（地域合計）のセルに、=SUBTOTAL(9,$B$2:$B$103)と入力されてしまいます。 総合計も、そのようになってしまいます。
- mar00
- ベストアンサー率36% (158/430)
>8行目で型が一致しないとエラーが出ちゃいます TOTAL = TOTAL + Cells(j, i)のところでしょうか。 AA=Cells(j, i)をTOTAL = TOTAL + Cells(j, i)の前に追加してください。 TOTALのところを合計に、ALLTOTALを総合計にと全てかえて実行してみて下さい。 これでもダメならTOTAL = TOTAL + Cells(j, i)のCells(j, i)の部分だと思います。 エラーが出た時にAAにマウスをあわせてみて下さい。入力されている数値が表示されるはずです。
お礼
重ねて回答ありがとうございます！ ほんとにややこしくて申し訳ありません…。 またいい方法があれば、ご教授下さい(>_<)
補足
エラーが発生する箇所は、仰る所であってます。 >AA=Cells(j, i)をTOTAL = TOTAL + Cells(j, i)の前に追加してください。 TOTALのところを合計に、ALLTOTALを総合計にと全てかえて実行してみて下さい。 ここまで全部しましたが、やっぱりTOTAL = TOTAL + Cells(j, i)でエラーが出るんです。 ここでいったん諦め、No,1の方の提案下さったVBAを実行し、入った数式を消した後で、mar00様のVBAを実行したら、最後まで終了しました。 ただ… どこにもデータが入っていないせいか、VBAが終了した後も、どこにも数式が入らないままでした…うぅ、残念…。 たぶん、IsEmptyでしょうか…。 これって、空白かどうかを判別する関数ですよね？ 個数が入力された後で集計するのではなく、 入力されたら集計できるように、あらかじめ数式を入れて配布したいのです。 ややこしくてすみません…！
- shinkami
- ベストアンサー率43% (179/411)
もしかして手書きまたはワープロの中心のシステムを 全面委託したのではないでしょうか そのとき委託先の質が低かったのか、御社の委託窓口の人が 強引強引に押し切ったのか 基幹システム自体も無理だらけのものになっているような気がします。 あなたの立場にもよりますが、基幹システムに携わっている 及びこのレポートを受け取る人との 話し合いが必要ではないでしょうか 失礼を重々承知の上での憶測だけの提案です。
お礼
回答ありがとうございます。 親身に考えて頂き、ありがとうございます。 ずさんなシステムの割に、小さい規模でもないので、 あたしレベルの提案がなかなか上に通らないのが実情です。 全くおっしゃる通り、使いづらいことこの上ないのですが、 徐々に、いろんなシステムが改善されていってるようなので 早くこれを何とかしてくれるよう祈ることしかできそうにありません…。 ありがとうございました。
- shinkami
- ベストアンサー率43% (179/411)
具体例を見る限り,Excell向きじゃないですね 同じ地名、区域名が何度も出てきますが 肝心な項目（日付、営業拠点名、担当名等）を省略していませんか これに近い表としては 区域ごとの地名の数を最大数に統一（地名の少ない時は空白）して (SUM)、（SUBTOTAL)の位置を横一列に並べると (SUM)、（SUBTOTAL) 式は一つ作るとコピペできますね 列を追加して行毎のの合計をして印刷時にこの列をフィルタ（0）は表示しないにかける
お礼
回答ありがとうございます。 ちなみに、Excel向きでないとしたら、どんなソフト向きなんでしょうか？ この編集をしたのち、社内で再配布する分なので、最終的にExcelに戻さないといけないですが もし簡単にできるものがあるのであれば、教えていただければ嬉しいです。
補足
会社のシステムなので、どうしてもExcelで、この形式でするしかないのです。 システムからダウンロードすると、本文で書いたような表が一つのシートにズラズラと表示されるので、行数をそろえるのが困難です。 下に100個近く表が続いているので、最大数に統一するため手作業をするのはとんでもなく時間がかかります。そもそも、あとから行数をそろえる作業をするなら、合計を手入力してもあまり作業的に変わらないですもんね…泣 各表の一番上には、これ以外の項目もあります。 例えば、Aちらし回収率、Bちらし回収率…とかですね。 ただ、その項目名は毎回固定ではないので、不必要だと思い、 あえて記載していません。
- mar00
- ベストアンサー率36% (158/430)
ご希望のものであるか自信はないのですが、マクロを実行すると図のようになります。 Sub Macro1() For i = 2 To 6 Step 2 TOTAL = 0 ALLTOTAL = 0 For j = 2 To Cells(Rows.Count, 1).End(xlUp).Row If IsEmpty(Cells(j - 1, i)) Then Exit For If Right(Cells(j, i - 1), 2) <> "合計" And Cells(j, i - 1) <> "総合計" Then TOTAL = TOTAL + Cells(j, i) Else Cells(j, i) = TOTAL ALLTOTAL = ALLTOTAL + TOTAL TOTAL = 0 End If If Cells(j, i - 1) = "総合計" Then Cells(j, i) = ALLTOTAL End If Next j Next i End Sub
お礼
追加で回答頂きありがとうございます！ ちょっと今からやってみます…！
補足
回答ありがとうございます！ 実行してみたところ、 8行目で型が一致しないとエラーが出ちゃいます(>_<) やりたいことは、添付してくださった画像、まさにその通り！なので、 明日、会社で検証させていただこうと思います。 Excelのバージョンが違うせい、ということは考えられますか？ 2010で実行してみたんですが…関係ないですよね＾＾；
- FEX2053
- ベストアンサー率37% (7987/21355)
集計範囲をどうやって決めるんですか？ これを、客観的に文章として書き出すことが出来ないと、 式だろうがプログラムだろうが組めません。逆に言えば、 毎回表の状態を見ながら判断するなら、一つ一つ計算式 を入れるしか方法が無いのです。 ですので、表の体裁を変えることを先に考えてください。 例えば10行ごとに合計が入るということにして、項目を 10行単位で入れなおす（足りない場合は途中を空白行 にする）などが考えられます。 他の方法としては「合計範囲を特定するための指示列」 を１列作り、そこにA,B,C,Dなど「合計する行」を入れて、 =SUMIF()関数を使うという手があります。 http://www.eurus.dti.ne.jp/yoneyama/Excel/kansu/sumif.htm この場合の総合計は、縦のデータをSUMIFのセルも含め 合計し、２で割れば出てきます。
お礼
回答ありがとうございます。 残念ながら、少し意図が違うようです。 おわかりでしたら、ご教授お願いします。
補足
F列が途中で改行が入ってしまっているので見辛くなってすみません。 範囲はその都度変わりますが、上の一番左の表で言うと、 A2：B8で一つの表です。 希望しているのは、 B4には=SUM(B2：B3）、B7に=SUM(B5:B6)、 B8に=SUBTOTAL(9,B2:B8)という風に数式を入れたいのです。 別にSUMでもSUBTOTALでも構わないです すべての表は個別に完結し、B2:B107のように、 上から下までの総合計は不要です。 A2:B8、C2:D7、E2:F8…B102:B108、C102:C107で、 それぞれの地域合計と、総合計を求めるのが目的です。 A,C,E列には最初から地名・合計行名の見出しが入っているので、 B,D,F列の、”A,C,E列に**合計、総合計とある行”に、 数式を入れたいのです。
- mu2011
- ベストアンサー率38% (1910/4994)
一例です。 合計はすべてSUBTOTAL関数としています。 対象シートタブ上で右クリック→コードの表示→左脳ルコードを貼り付け→Ｆ５キーを押下 マクロ削除は、貼り付けたコードを全削除して下さい。 Sub Sample() a = Split("*??合計,総合計", ",") For i = 0 To UBound(a) Set pos = Cells.Find(What:=a(i), _ lookat:=xlPart) If pos Is Nothing Then Exit Sub Set pos1st = pos st_col = 1 st_row = 2 Do If pos.Column <> st_col Then st_row = 2: st_col = pos.Column pos.Offset(0, 1).Formula = _ "=subtotal(9," & _ Cells(st_row, pos.Column + 1).Address & ":" & _ Cells(pos.Row - 1, pos.Column + 1).Address & ")" st_row = pos.Row + 1 Set pos = Cells.FindNext(pos) Loop Until pos.Address = pos1st.Address Next End Sub
補足
早速の回答ありがとうございます！ 恥ずかしながら、半分も理解できなかったですが、 とりあえず、実行してみました。 数式の入った場所自体は、希望していた通り！なのですが、 残念ながら、数式が違うようなのです。 私の書き方が悪かったのですが、地域合計と、個別の表だけの総合計が 知りたいので、 B4には=SUBTOTAL(9,B2：B3）、B7に=SUBTOTAL(9,B5:B6)、 B8に=SUBTOTAL(9,B2:B8) 下の表では、 B13に=SUBTOTAL(9,B102:B103)、B16に=SUBTOTAL(9,B14:B15) B17に=SUBTOTAL(9,B11:B107)という風に数式を入れたいのです。 あとちょっとな感じがしますので、自分でも調べてみるつもりですが、 もし、簡単に修正が出来るのであれば、そして、もしお時間がおありであれば教えて頂けたら嬉しいです。 （自己解決出来ましたら、下にお礼を入れさせて頂きます） よろしくおねがいします！
関連するQ&A
- 数式の結果である数値のみカウント・合計
=COUNTIF(A3:A9,">=0")で「0以上の、数式の結果である数値」のセル数のカウントと、 「数式の結果である数値」のセルのみ合計計算したいのですが、 「直接入力した数値」はカウント(計算)せずに、 「数式の結果である数値」のみカウント(計算)することはできますか？ 例えば、A3～A9セルに表示されている数値が A3：5 A4：3 A5：8（=SUM(A3:A4)） A6：2 A7：空白 A8：4 A9：-2（=A6-A8） の場合、=COUNTIF(A3:A9,">=0")で「5」となりますが、 数式の結果の数値で>=0である個数の「1」(A5が該当)となるようにカウントするにはどうすればよいでしょう？ また、0以上の条件部分が「0未満」、「条件なし」の場合も可能でしょうか？ そして、=SUM(A3:A9)だと「20」となりますが、 「数式の結果である数値」のみ合計計算して「6」(A5とA9の合計)を結果として表示させることはできますか？ できれば数式での解決が第一希望です。 以前、全く逆の、「数式の結果である数値を除いた、直接入力した数値のみカウント」する方法を質問し、 おかげさまで、数式をSUBTOTAL関数で小計等を避けて集計することで無事解決したのですが、 今度は小計等の数式の結果の数値のみをカウントするという、逆のパターンが必要になってしまいました。
- ベストアンサー
- オフィス系ソフト
- 条件AでなおかつBの数字の個数を数える関数かVBA
関数で難しいならVBAでよろしくお願いします。 Excel 2010です。 日付 地方名 県名 数字のあるセル→以下続く 1/1 近畿 大阪 1 2 1 2 1 2 1 2 2/1 四国 愛媛 1 3 4 5 6 2 3/1 中国 山口 1 2 3 4 5 6 3/2 近畿 兵庫 2 1 2 3 4 5 3/3 近畿 大阪 3 2 1 2 3 4 4/1 中国 山口 6 5 4 3 2 1 2 1 1 1 1 1 6 ・以下続く ・ ・ ・ 数字が1～6まであるとして、同じ県名も日付が変われば何回も出てくるものとします。 1つ目の近畿の大阪の行では数字の1が2個、2が3個、3から6までは0個 というように数えていき、同じ件名なら１が合計～個というようにしていき最終的に以下の表にしたいです。 1の個数 2の個数 3の個数 ・・・・6の個数 近畿 大阪 近畿 兵庫 四国 愛媛 ・ ・ ・ どういう関数あるいはVBAを使えばいいでしょうか？
- ベストアンサー
- Excel（エクセル）
- エクセルVBA系・・ 関数のSUBTOTALの絡みで・・・
いつもいつもいつも皆様には大変お世話になっております。 早速本題ですが オートフィルターでフィルターをかけた物の 足し算はSUBTOTALですよね。 そこからが問題なのですが、 SUBTOTALででた合計をVBAでコピーして貼り付けをしたいのです。 その貼り付け場所は 別のシートになります。 ちなみに作ってみたのはこんな感じです Windows("表.xls").Activate DATA = Range("A1:N1002") With Range("B4") .AutoFilter .AutoFilter Field:=3, Criteria1:="A店" .AutoFilter Field:=2, Criteria1:=">=" & Z , _ Operator:=xlAnd, Criteria2:="<=" & V End With Windows("B表.xls").Activate Cells(7, 3) = DATA(1002, 8) '1002のところがSUBTOTAL関数が入ってます。 これでコピーをするとB表にでて来る数字が、通常のSUMで全体を出した答えが入ってくるのです；； SUBTOTALの出た数字がほしいのです・・・；； こういったことは出来るでしょうか？ 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 行を追加した時の、値の合計範囲
行を追加するマクロがあり、実行すると「合計」行の1行上に行が追加されます。 行が追加された分「合計」のある行が下がっていくんですが、その関数が変動してくれなくて困っています。 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ 1 商品の基本データ ・ ・ ・ ・ 14 商品の基本データ 15 16 日付 入庫 出庫 本日在庫 17 2012/04/01 100 100 18 2012/04/05 50 150 19 2012/05/03 100 50 20 2012/05/04 300 350 21 ・ 150 200 22 ・ 50 150 23 ・ 200 350 24 ・ 10 340 (ここに行が挿入されていく) 25 合計 (1) (2) 340(=(1)-(2)) (1)=IF(COUNT($C$17:$C24)=0,"",SUM($C$17:$C24)) (2)=IF(COUNT($D$17:$D24)=0,"",SUM($D$17:$D24)) 現在こんな感じで式を入れています。$C24と$D24が$C25...、$D25...等動いていってくれるといいんですが・・。 他にもSUMPRODUCTやOFFSETなど色々試しましたが、上手くいきません。 行が増えていく(セル参照範囲が変わってくれない)、C:CやD:Dとして設定できない、データが連続していない、などが原因だと思っています。 A列には何もありません。 E～H列は他にもデータが入っています。 マクロで、B17からHの合計の1行上までを日付でソートすることがあります。 合計行の上に空白行C25を入れ、合計行C26にSUM(C17:C25)とし、 挿入する位置を空白行C25の上とすれば、SUMは挿入行を抱えていってくれるんですが、 この場合空白の行25を高さ0の不可視にさせなければならず、利用する側としては21・22・23・24・26と、25が飛んでいるのが気になるものと思います。 できればそういう疑問を持たせることなく可動させたいです。 因みにVBAでWorksheet_ChangeやWorksheet_Selectionhangeなどは既に使用しているので、 マクロで自動で合計値を入力することはできないと思います。 ボタンで動かすマクロでなら出来そうですが、合計を逐一表示するのにマクロボタンを設置するのもどうかと思うので・・。 いくらネットで探しても方法が見つからなかったので、何方かご教授宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel数式入力
セルC2の合計がF1の数値と同じになるようにセルB4に数式を入力したいのですが。D列が数式となります。尚、F1の値は都度手入力で変更されます。数式を何度か入れたのですが数値がちぐはぐになりうまくいきません。B4に入力する関数もしくは何か良い解決策はあるでしょうかよろしくお願いします。
- ベストアンサー
- その他([技術者向] コンピューター)
- ＶＢＡ 可変行のデータを自動集計する
vbaでシステムの効率化をしている エンジニアです。 添付の図のような表に100件～1000件 の可変するデータが入ります。 右の4つのコミッションを合計して小計のところに自動計算したいのですが データ量が変動するため（この表の上下のデータ量も変動する） vbaで何行目から何行目を合計するという指定ができません Q&Aを見ていくと offset関数・名前の定義をうまく使ったらいいとあり Worksheets("Sheet1").Names.Add Name:="名前A" RefersTo:=Range("コミッション1") Worksheets("Sheet1").Names.Add Name:="名前B" RefersTo:=Range("(2)小計") ActiveCell.Offset(-3, 2).Range("名前A:名前B").Select ActiveCell.Offset(15, 2).Range("名前A").Activate ActiveCell.FormulaR1C1 = "=SUM(R[-18]C:R[-1]C)" ActiveCell.Offset(-18, 0).Range("名前A:名前B").Select End If これで合計できると思うのですが、 どなたか添削していただけないでしょうか？
- ベストアンサー
- Microsoft ASP
- Excel初心者です。数式の入力がわかりません・・・ その2
Excelで、W14からW44までの数字（金額）を足していく 計算式をW45に入れました。 W14からW44までの数字を足していき、1,100円を超えた 場合に、超えた以降はW14からW44に自動計算される数字は 入力されず、0という数字も入らない状態にしたく、また、 W45に自動計算される数字は、1,100円を超えた場合でも 1,100円という数字を表示（1,200円でも1,100円、1,000円 の場合は1,000円という具合） されるようにしたいのです。 そういった場合、どこにどんな数式を入れればいいので でしょうか。W45には既にSUMが入っています。 よろしくお願いいたします。
- ベストアンサー
- その他(ソフトウェア)
- Excel初心者です。数式の入力がわかりません・・・
仕事で資料の作成をしています。 関数が苦手で、どう入力していいのかわからない状態です（；＿；） ご指導、お願いいたします。 以下のような表を作成しました。 Ｍ14（開始時間）からＮ14（終了時間）が４時間以上の 場合、Ｏ14に1という数字を、4時間未満の場合は0.5と いう数字が自動に出るようにしたいのです。 数式はＯ14に入力すると思いますが、どのような式を 入力すればいいのでしょうか。 =HOUR(N14-M14) でIFを使用しようかと思っています が、間違いでしょうか。エラーが出ます。 ここで出たＯ14の数値が1の場合は、AJ12に手動入力する 数値×1.072で出た数字は10円未満切り捨てにした数字（A)、 さらに（A)+AJ8×V14-W14で出た数字をX14に自動的に 入力されるようにしたいのです。 わかりづらいかと思いますが、補足はできますので、ご指導 お願いいたします。
- ベストアンサー
- その他(ソフトウェア)
- Ｅｘｃｅｌ２００７ ＶＢＡで数式がうまく入力が出来ません。
Ｅｘｃｅｌ２００７ ＶＢＡで数式がうまく入力が出来ません。 数式を、"=IF(AA7=0," ---",Z7/AA7)" " "内には半角スペース4コ 半角マイナス3コ と入力したいのですが、以下のように自動的に入力されてしまい、マクロ実行時に、エラーとなってしまい、ストップしてしまいます。 解消方法を教えて下さい。 ＶＢＥで入力しても、以下のように自動的に修正されてしまいます。 Range("AB7").Formula = "=IF(AA7=0," - --",Z7/AA7)"
- ベストアンサー
- その他MS Office製品
- 「エクセル」特定の行（セル）を計算から除外したい
ＥＸＣＥＬ関数と考えますが質問があります。 よろしくお願いします。 或る集計表を作って 例えば、名前、NO.、性別、商品リストを基軸にして 金額などを入れ込んだ表があります。 D _ _ _ E _ _ _ F 1 名前 NO. ____ Ａ商品 Ｂ商品 Ｃ商品 2 鈴木一郎 0001 男 500 600 400 3 山田花子 0002 女 700 300 200 4 以下つづく 25300 ___ 52 _____ (円）___ （人） Ａは、SUMで金額を計算し合計を、ＢはCOUNTで個数を出す。 15、20、25、26、行はその計算から除外させたい場合 （セル単位だともっと複雑そうなので行または列単位） 関数ＳＵＢＴＯＴＡＬを使うといいという文を見たのですが どうも使い方が分かりません。 一度試みましたがうまくいきません。（なんの変化もしない） 色を黄色なりにつけるか列の末に記号（文字）を入れるのは可能です。 なにか、いい方法を教えていただけないかと投稿しました。
- ベストアンサー
- その他MS Office製品
お礼
回答ありがとうございます。 まだまだ解決には至っていないのですが、 私自身、これに向き合う時間が取れなくなってきたので、 ひとまず終了とさせていただきます。 また時間がとれるようになれば、改めて質問するかもしれません。 もし、目にとまった際には、お力添えいただければ幸いです。 何度もありがとうございました！！
補足
B4とD3にSUBTOTALは入力されるのですが、そこでマクロ終了してしまいます(>_<) 残念です…。