Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Home : 指定なし)
最終行までの範囲にすることは可能でしょうか
投稿日時: 21/03/10 14:19:55
投稿者: hahahaaki

https://www.moug.net/tech/exopr/0090046.html
https://enterprisezine.jp/iti/detail/845
 
を参考に、奇数行、偶数行の合計をしたいのですが、ROWの範囲の最終行を可変にしたいのですが(行が追加されるため)可能なのでしょうか

回答
投稿日時: 21/03/10 16:08:01
投稿者: WinArrow
投稿者のウェブサイトに移動

データの最終行は
A列にデータがある場合
With Activesheet
   行MAx = .Range("A" & .Rows.Count).End(xlUp).Row
End With
で取得できます。

回答
投稿日時: 21/03/10 16:54:29
投稿者: んなっと

いろんな方法があります。
 
    C    D  E
 1 金額 最終行  13
 2  21 偶数行  99
 3  11 奇数行 105
 4   7       
 5  26       
 6  24       
 7  25       
 8  12       
 9  14       
10  17       
11   7       
12  18       
13  22      
14 
 
E1
=MATCH(1,0/(C1:C10000<>""))
※途中空白がなければ =COUNTA(C:C)
E2
=SUMPRODUCT(C2:INDEX(C:C,E1),1*ISEVEN(ROW(C2:INDEX(C:C,E1))))
E3
=SUM(C:C)-E2

回答
投稿日時: 21/03/10 16:58:51
投稿者: んなっと

もしかしたら
E1
=MATCH(10^15,C1:C10000)
でもいけるかもしれません。

回答
投稿日時: 21/03/10 17:06:28
投稿者: んなっと

あらかじめ広めの範囲で数式を作成しておくという方法もありますね。
 
あと、表をテーブルにして
=SUMPRODUCT(テーブル1[金額],1*ISEVEN(ROW(テーブル1[金額])))
といった式にしても、行数の増減に対応できます。

トピックに返信