マクロについての質問です。
マクロについての質問です。
下記の表で栃木支店から東京支店の合計を東京支店の下に1行挿入して合計額を入力したいと考えております。合計する範囲は変動する可能性があります。
マクロ化することは可能でしょうか??
一応下記のように[東京]を検索して行を挿入するというところまで作ってみました。
このあとどのようにすれば可能か教えて頂けないでしょうか??
また他に方法がありましたら教えてください。
よろしくお願い致します。
-------------------------------------------------------
Cells.Find(What:="東京", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(0, 1).Select
--------------------------------------------------------
商品(1) 商品(2) 商品(3)
宮城支店 100 200 100
福島支店 150 300 200
栃木支店 100 100 300
2 埼玉支店 100 500 400
0 茨城支店 200 100 500
1 群馬支店 300 200 300
0 千葉支店 400 300 300
埼玉支店 400 400 200
東京支店 200 500 100
長野支店 100 400 200
―――――――――――――――
宮城支店 100 200 100
福島支店 150 300 200
栃木支店 100 100 300
埼玉支店 100 500 400
2 茨城支店 200 100 500
0 群馬支店 300 200 300
1 千葉支店 400 300 300
1 埼玉支店 400 400 200
東京支店 200 500 100
長野支店 100 400 200