範囲をコピーして同じシート上の1行下に移動します

Question

私はExcelのVBAでかなり新しく、この問題については本当に助けになります。

ブックには、範囲A5：AZ1000のデータが含まれています（新しいクライアント情報は新しい行に入力されますが、ケースの性質によっては空白になる場合もあります）。ユーザーが新しいクライアント情報を入力すると（新しい行が始まる）、既存のデータ（範囲A5：AZ1000）が1行下に移動し、空白の行が範囲A5：AZ：5に表示されます。これを実現するために、ユーザーにマクロ「新規クライアント」をクリックさせたいと思います。

これは共有ブックであるため、新しい行を追加するマクロを作成することはできません。ここで

は、私が働いているコードです：

Sub shiftdown() 
' shiftdown Macro 
Dim lastRow As Long 
Dim lastColumn As Long 
Dim rngToCopy As Range 
Dim rng As Range 
Set rng = ActiveSheet.Range("A1").Value 
lastColumn = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column 
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row 
If rng > 0 Then 
    ActiveSheet.Range("A5" & lastRow).Select 
    Selection.Copy 
    PasteSelection.Offset(1, 0).PasteSpecial xlPasteValues 
    'Error Object Required 
End If 
End Sub 

Answer 1

は、通常、私は答えられないだろうことはできませんが、私は書き始めました以下の質問は実際にはでした私はそれを提供するかもしれないので、コードを示しました。それはあなたが何をしているかを達成するかもしれません。

Sub shiftdown() 
' shiftdown Macro 
    Dim rng As Range 
    With ActiveSheet 
     If .Range("A1").Value > 0 Then 

      Set rng = .Range(.Cells(5, 1), _ 
          .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, _ 
            .Cells(4, .Columns.Count).End(xlToLeft).Column)) 
      rng.Offset(1, 0).Value = rng.Value 
      .Rows(5).EntireRow.ClearContents 
     End If 
    End With 
End Sub 

Answer 2

Set rng = ActiveSheet.Range("A1").Value ???

RNGは範囲であれば、次にによってそれを置き換える：

Set rng = ActiveSheet.Range("A1") 

又はRNGが可変である場合、

Dim rng As variant 
rng = ActiveSheet.Range("A1").Value 

別のエラーによって

Dim rng As Range 

を置き換える：

あなたはrを宣言しました範囲としてNG、その後、あなたはそれがあるかどうかをテスト> 0

If rng > 0 Then ... 

質問が努力を表示する任意のコードが含まれていない場合