|
▼yuna さん
こんにちは。
横から失礼します。
>こんにちは!よろしくお願いいたします。
>Excel2003で下記のような計算式が入力されている
>1行をコピーして4行目後にコピーしたセルを挿入したいのですが、
>複数あるため、マクロを作りたいと思っています。
>
> A B C
>1 氏名 住所 件数
>2 氏名 住所 件数
>3 氏名 住所 件数
>4 氏名 住所 電話
>5 氏名 住所 郵便 → 計算式が入力されている
>6 氏名 住所 ふりがな
>7 氏名 住所 ふりがな
>8 氏名 住所 ふりがな
>9 氏名 住所 郵便 → 5行目の計算式も含め1行挿入する
>
>この操作を最終行まで繰り返す
えと、この表では、どこに計算式があって、どういう計算なのかわからんのですが、
とりあえず、件数が数字っぽいので、5行目にその件数を合計するとして・・・
(ふりがなとか郵便とかは無視)
9行目に、5行目をコピーということは、
5行目の計算は2〜4行目の計算
9行目は6〜8行目の計算・・・と考えてみます。
なんかムリクリだなー^^;
ということで、
Sub test()
Dim lngA As Long
Dim i As Long
lngA = Cells(Rows.Count, 1).End(xlUp).Row
lngA = lngA - (lngA - 5) Mod 3
MsgBox lngA
For i = lngA To 6 Step -3
Rows(5).Copy
Rows(i).Insert Shift:=xlDown
Next i
End Sub
で、どかな?
やってみたらそれっぽかった・・ってレベルなんですが^^;
|
|