|
こんばんは。
>データベースへの入力作業中に、あったら便利と思いついて下記のマクロを作成しました。現在選択中のセルをInputBoxで入力した回数分下へコピーするものです。
>しかし、例えばE5:H5のようにActiveな複数セルの内容を下へコピーする方法が思いつきません。いろいろと試してみましたができませんでした。どなたかご教授下さい。よろしくお願い致します。
Sub 下へコピー()
Dim i As Long, k As Variant, r As Long
Dim H As Range
On Error Resume Next
Set H = Selection
If Err.Number <> 0 Then Exit Sub
If H.Areas.Count > 1 Then Exit Sub
k = Application.InputBox("コピー回数入力", "回数入力")
If TypeName(k) = "Boolean" Then
Exit Sub
End If
With H
For i = 1 To k
r = i * .Rows.Count
.Offset(r, 0).Value = .Value
Next
End With
End Sub
下にコピーしたいセル範囲を選択して上記のコードを実行してください。
(但し、飛び飛びのセル範囲はの選択ははじかれます)
入力回数分コピーします。
|
|