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 Rangewhich 是一个对象，它Set在分配时需要关键字。

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

此外，Range("A1,y")我在两个地方看到了一个语法错误。我认为这两个都应该改为：

Range("A1", y)

请注意，逗号和“y”未包含在引号中。

于 2013-08-01T00:16:04.790 回答