0

だから私がやろうとしているのは、一番下の # が何であれ、リスト 1 を並べることです。そうするうちに、私はある意味ですべての情報を右に移動しています。次に、選択範囲の一番下に移動して、リストの一番下の列 B を見つけます。次に、1 を左に移動して、一番下の A 列を検索し、リストの一番下まで # システムを入力します.

Private Sub CommandButton2_Click()
       'My problem is i don't know what to set "Dim y As Range" I know Range is 
       'incorrect along with Long, and Integer.
    Dim y As Range
    Sheets("PalmFamily").Select
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A1:A3").Select
       'As you can notice I also have a weird code 
       '" y = Range("B1").End(xlDown).Offset(0, -1)" I'm trying to go to the bottom 
       'of my list then move left 1. 
    y = Range("B1").End(xlDown).Offset(0, -1)
       'As well the I'm not sure if I set my range to be correct when I do
       '"Range("A1,y")"
    Selection.AutoFill Destination:=Range("A1,y"), Type:=xlFillDefault
    Range("A1,y").Select
End Sub
4

1 に答える 1

2

あなたが投稿したコードはコンパイルされません。それを見るだけでわかります。

割り当て時にキーワードy As Rangeが必要なオブジェクトを宣言しました。Set

Set y = Range("B1").End(xlDown).Offset(0, -1)

さらに、Range("A1,y")2 つの場所で見られる構文エラーです。これらは両方とも、次のように変更する必要があると思います。

Range("A1", y)

コンマと「y」は引用符で囲まれていないことに注意してください。

于 2013-08-01T00:16:04.790 に答える