Excel総合相談所 136 - 暇つぶし2ch

Excel総合相談所 136 ..

622:名無しさん＠そうだ選挙にいこう
19/09/10 16:15:39.42 .net
>>620　実際に試してません、あしからず。
Dim 値 as Integer ' DF4,DU4とも整数という前提です
Dim cnt as integer,　セル as Range
With ActiveSheet　　　　' 処理対象シートの指定
　　値 = .Range("DF4").Value
　　If 値 < .Range("DU4").Value Then 値 = .Range("DU4").Value
　　Select Case 値
　　Case Is <= 1
　　　　.Rows("14:15").Delete
　　Case Is = 2
　　　　' なにもしない
　　Case Is >= 3
　　　　.Rows("14:15").copy
　　　　Set セル = .Range("A16")　　' 貼り付け開始位置
　　　　For cnt = 1 to 値　　' ３以上のときはその値回数分貼り付けを繰り返す
　　　　　　セル.PasteSpecial　Paste:=xlPasteAll　　' 貼り付ける種類はお好みで
　　　　　　Set セル = セル.Offset(2, 0)　　　　　　　 ' 貼り付け先を２行下へ
　　　　Next cnt
　　End Select
End With
もし、”高い数値”が３のときの貼り付けは１回　ということであれば　For cnt = ３ to 値に変更してください。

次ページ

続きを表示

1を表示