RANGE内变量的使用

会飞的土豆宏宏

'i = Range("a10000").End(xlUp).Row
   Range("A7":"d"&i).Select
用这种格式写会报错，想问一下应该怎么写？ 提示缺少列表分隔符或）

lt0314

Range("A7:d" + i).Select

会飞的土豆宏宏

lt0314 发表于 2022-11-16 16:10
Range("A7:d" + i).Select

谢谢老哥，这个问题已经明白了，另外有个函数卡了我一个下午了，不知可否指点一二


Sub 自动填充抬头()
'
    Rows("6:6").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$6:$R$1312").AutoFilter Field:=10, Criteria1:="=小计", _
        Operator:=xlOr, Criteria2:="="
Set Rng = [a1]
    Set Rng = Union([a:a].SpecialCells(12), Rng)
    Rows("Rng(1):Rng(1)").Select'运行到这里的时候会报错，我想实现的效果是选中筛选后不含表头（用于筛选的这行）的第一行
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    Selection.AutoFilter
     i = Range("a10000").End(xlUp).Row
    Range("A7:H" & i).Select
    ActiveWindow.SmallScroll Down:=12
    Selection.Replace What:="", Replacement:="A", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="A", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
    ActiveWindow.SmallScroll Down:=18
End Sub

会飞的土豆宏宏

lt0314 发表于 2022-11-16 16:10
Range("A7:d" + i).Select

想要实现的效果是代码运行到range（”rng(1)：rng（1）“）.Select 的时候能够选中筛选后自筛选行从上往下数的第二行，在该图片中为A12

会飞的土豆宏宏

会飞的土豆宏宏 发表于 2022-11-16 16:30
想要实现的效果是代码运行到range（”rng(1)：rng（1）“）.Select 的时候能够选中筛选后自筛选行从上往 ...

大佬救命框红这部分我希望实现的效果是选中第12行（筛选后的第一个可见行），卡了一下午了，其他代码段是能正常运行的，用VB宏修改的。

jiangxiaoyun

网上看看range对象，range属性等文档，这些都是基础，就知道代码的写法了。