プログラムでExcel式を移動する

Question

私はExcelシートにデータをエクスポートするアプリを持っています。ユーザーは=sum(o1:o12)のようにデータをエクスポートした後、シートをExcelに入力して結果をo13に入れることができます。ユーザーは同じシートにデータを再エクスポートするオプションもあります。いくつかの条件によっては、多かれ少なかれ行がエクスポートされることがあります。たとえば.... 最後に12行あるので、ユーザーは13行目の数式を入力しますが、今回は20行がエクスポートされる可能性がありますので、o13セルからo21に数式を移動できるはずです=sum(o1:12)~=sum(o1:20)。他のケースでは...アプリケーションからエクスポートされるのは5行だけなので、式はo6セルに移動し、数式は=som(o1:o5)に更新されているはずです。

プログラムでこれを行うにはどのような方法がありますか？

Answer 1

LastRow = Range("O65535").End(xlUp).Rowは、O列の最後に塗りつぶされたセルの番号を返します。行うには

次の事はある：あなたがLastRow = Range("O65535").End(xlUp).Rowを使用する場合、列Oの最後のセルは合計式である場合

Range("O" & LastRow+1).Value = "=Sum(O1:O" & LastRow & ")" 
Range("O" & LastRow+1).formula = "=Sum(O1:O" & LastRow & ")" will work as well. 

最後のものは、注意してください。

これはうまくいくはずです。質問がない場合はお気軽にご相談ください。