こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

挿入した行のC列に式を挿入

Yahoo知恵袋からの回答の引用で

Q
エクセル マクロでデータごとに1行挿入するマクロを教えてください。
A~AW列にデータが入っていて、同じ品番ごとに1行挿入するマクロを教えてください。

A
Sub insRow()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
Cells(i, 1).EntireRow.Insert (xlShiftDown)
End If
Next i
End Sub

このようなものがありますが、この最後のinsertにあたって、挿入されて新しく加わる全ての行のC列に式を挿入する方法(例えば、=A13等)を教えて頂けないでしょうか。

投稿日時 - 2013-08-26 23:07:31

QNo.8237208

困ってます

質問者が選んだベストアンサー

>式を挿入する

あまり奇をてらわず、その通りにするだけでOKですよ。


sub macro1()
 dim i as long
 for i = range("A65536").end(xlup).row to 3 step -1
  if cells(i, "A") <> cells(i - 1, "A") then
   cells(i, "A").entirerow.insert shift:=xlshiftdown
   cells(i, "C").formula = "=A13"
  end if
 next i
end sub


#サンプルマクロの問題点も改善してありますので見逃さないようにしてください。


#肝心の「例えば」じゃないホンモノの数式はご質問じゃないので、自力で解決してください。

投稿日時 - 2013-08-26 23:32:07

お礼

うーん、ホントそのまんまだったんですね笑
ありがとうございます。うまくできました!

投稿日時 - 2013-08-27 21:55:48

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

Microsoftコミニュティ、プロが押してくれます。
http://answers.microsoft.com/ja-jp/windows/forum/windows_8

投稿日時 - 2013-08-26 23:23:47

お礼

なるほど、このようなサイトもあるのですね。今後、参考にしたいと思います。

投稿日時 - 2013-08-27 21:55:21

あなたにオススメの質問