|
こんにちは。かみちゃん です。
>データベースへの入力作業中に、あったら便利と思いついて下記のマクロを作成
>しました。現在選択中のセルをInputBoxで入力した回数分下へコピーするものです。
>しかし、例えばE5:H5のようにActiveな複数セルの内容を下へコピーする方法
提示されたコードを拝見すると、値のみ(数式や書式は含まない)を複写したい
ようですので、それであれば、以下のような感じでできると思います。
最低限の簡単なエラー回避も入れてあります。
Sub CopyDown()
'下へコピー
Dim i, k, r As Long
Dim H As Range
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲が選択されていません"
Exit Sub
End If
'Set H = Sheets("Sheet1").Cells(ActiveCell.Row, ActiveCell.Column)
Set H = Selection
If Selection.Rows.Count > 1 Then
MsgBox "複数行選択されているためコピーできません"
Exit Sub
End If
k = InputBox("コピー回数入力", "回数入力")
If Not IsNumeric(k) And Len(k) = 0 Then
Exit Sub
End If
'指定回数分下方向に値のみ複写
H.Resize(k).Value = H.Value
End Sub
|
|