| |
▼yuna さん
こんにちは。
横から失礼します。
>こんにちは！よろしくお願いいたします。
>Excel2003で下記のような計算式が入力されている
>1行をコピーして4行目後にコピーしたセルを挿入したいのですが、
>複数あるため、マクロを作りたいと思っています。
>
> A B C
>1 氏名 住所 件数
>2 氏名 住所 件数
>3 氏名 住所 件数
>4 氏名 住所 電話
>5 氏名 住所 郵便 → 計算式が入力されている
>6 氏名 住所 ふりがな
>7 氏名 住所 ふりがな
>8 氏名 住所 ふりがな
>9 氏名 住所 郵便 → 5行目の計算式も含め1行挿入する
>
>この操作を最終行まで繰り返す
えと、この表では、どこに計算式があって、どういう計算なのかわからんのですが、
とりあえず、件数が数字っぽいので、５行目にその件数を合計するとして・・・
（ふりがなとか郵便とかは無視）
９行目に、５行目をコピーということは、
５行目の計算は２〜４行目の計算
９行目は６〜８行目の計算・・・と考えてみます。
なんかムリクリだなー＾＾；
ということで、
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
で、どかな？
やってみたらそれっぽかった・・ってレベルなんですが＾＾；
|
|
つん
- 09/4/14(火) 15:07 -
