11/06/20 08:09:49.91
>>389
数式？ オートフィル？
やりたいのはこんな事なのかなぁ。
With ActiveCell
Cells(.Row + 1, .Column).Resize(1, 2).Select
Selection.Insert Shift:=xlDown
.Offset(0, 1).Select
End With
これ以上は専門スレで訊いて >>1>>7
11/06/20 08:09:49.91
>>389
数式？ オートフィル？
やりたいのはこんな事なのかなぁ。
With ActiveCell
Cells(.Row + 1, .Column).Resize(1, 2).Select
Selection.Insert Shift:=xlDown
.Offset(0, 1).Select
End With
これ以上は専門スレで訊いて >>1>>7