A16 コピーの解決方法

質問者が納得こんな感じかな。Sub RowInsMacro() With Range("A15:E15") .AutoFill Destination:=.Resize(2), Type:=xlFillDefault End WithRows(18).Insert Shift:=xlDownEnd Sub---補足に対して ---> エラーになってしまいます。。。こういうときは、エラーの内容(Err.Number)を書いてください。このコードは、エラーになる要素が無いと思いますが・・・シートを...

質問者が納得１回の操作では無理のような気がします。この場合、A1をA11にコピペA2:A5をA13:A16にコピペと２回やるしかないと思います。形式を選択した貼り付けで何か良い方法があるかもしれませんので、わかったら回答します。もし汎用的にこのような操作を何回も使用したいのであれば、マクロを作成するしかないでしょうね。

質問者が納得=INDEX(Sheet1!$A$16:$E$16,,ROW(A1))とか=OFFSET(Sheet1!$A$16,,ROW(A1)-1)で下方にコピーしてください。

質問者が納得前回回答した数式を理解していただいていたら、応用だけなのですが。やはり関数だけでは、最後の10以上の数値の塊の範囲を特定するのは難しいので。作業列を作ります。前回の回答とまったく同じものです。C列、D列を作業列として使います。C2セルに「=IF(B2>=10,ROW(),"")」D2セルに「=IF(ROW()>MAX(C:C),"",IF(B2<9,ROW(),""))」E2セルに「=MAX(C:C)-MAX(D:D)」単に引き算...

質問者が納得絶対参照と相対参照 の違いが分かれば理解できます常に同じセルを参照したい場合は 座標の前に＄つければ 常にそのセルを参照します例 A4 相対参照$A$4 絶対参照座標を入れるとき F4キーを押せばつきます詳しくはhttp://www.nct9.ne.jp/poporu/18.htmlご参考に

質問者が納得やっぱりマクロになります＾＾Sub try3()Dim i As Long, n As Longn = 0n = Range("a1").End(xlDown).RowFor i = n To 1 Step -1 Rows(i + 1).Resize(3).Insert shift:=xlShiftDown Cells(i, 1).Copy Cells(i, 1).Resize(3).Offset(1)NextEnd Sub上記を標準モジュールにコピペします。Alt+F11 & ...

質問者が納得単純に1と入力したものを001と表示させたいのであれば、セルの書式設定で000と定義しておけば、1→001と表示されます。Kなどの文字を先頭につけるのであれば、"K"000と定義すれば固定文字を付加することもできます。変更するセルが固定ではない場合や、付加する文字列が変わる場合などはマクロで実行するといいかと思います。実際のマクロについてはマクロの記録を使って確認してみるといいかもしれません。

質問者が納得＞A4～A33 A3コピー＞上記の様に設定してあります。この部分が間違いですね。前回の質問を拝見しましたが、A3セル =DATE(YEAR(E1),MONTH(E1)-1,21)A4セル =A3+1 A10までコピー A11セル =IF(A10="","",IF(DAY(A10+1)>20,A10+1,""))A12 A13セル A11セルをコピーA14セル =DATE(IF(MONTH(A3)=12,YEAR(A3)+1,YEAR(A3))...

質問者が納得常のその行含め上方向に5つの合計ですね。作業列C列を使います。B1：=IF(C1<6,SUM($A$1:A1),SUM(INDIRECT("A"&MATCH(C1-4,C:C,0)&":A"&ROW()))) C1：=COUNT($A$1:A1)このB1C1を下方向にオートフィル式の説明は省略します。・・・