VBA里怎么在range（）select里面添加变量

Posted 2023-04-16

VBA里怎么在range（）select里面添加变量，该变量是一个单元格中的一个值，例如我要通过VBA代码，选择A1到Bx的区域，x是变量，他的值是D2单元格的值（此时变量是5，），我写的是 n = Range("D2").Value n = n*1 Range("R2:S"&n&"").Select结果运算出错，求教~
对不起，追问里面的图片上的代码是我实际问题的代码，我的提问只是举了个例子，不好意思，正解两位大佬给了。错误代码 n = Range("D2").Value n = n*1 Range("R2:S"&n&"").Select中的Range("R2:S"&n&"").Select改为range("R2:S" & n).select。好像是说变量是不能用引号的，要不就成字符串了。

Range("R2:S"&n&"")
改成
Range("R2:S"&n)
wps写VBA，复杂点的VBA容易莫名其妙乱报错，还是excel写VBA好的多。追问

还是有点问题啊



追答

人的问题。这么菜就别学了。

照抄都能在range后面多加个空格。。。

最后一句改成 

msgbox Range("R2:S"&n)

再不行把自己打两下。推荐去excelhome论坛搜索你的问题，那里很全面。

追问

谢谢，刚刚我复制的你的，wps vba自动加了空格。。属性的使用无效的问题是，后面没有指令了，我复制的你的，后面没加select，我是新手，刚接触，连菜都算不上。但还是谢谢你。

追答

赞！言语过激之处见谅，找个项目实战一下，VBA水平是在项目中锻炼出来的。有不会的就录制宏看VBA代码，多去Excelhome搜索，学的很快的。

参考技术A 去掉&""追问

Range("R2:S"n"").Select。。。不行啊，还是错误 

追答

range("r2:s" & n).select

你去掉的不是我说的&""

追问

谢谢大哥~解决啦

本回答被提问者采纳

根据段落编号自动添加书签的VBA

操作方法，鼠标逐一点击标题行，执行本宏，自动将标题编号取出作为书签名称

 

Sub 宏1() ‘ ‘ 宏1 宏 ‘ ‘

Dim myRange As Word.Range 

Dim num As String, content As String      

Selection.HomeKey Unit:=wdLine    

Selection.EndKey Unit:=wdLine, Extend:=wdExtend           

Set myRange = Selection.Range    

With myRange  ‘把Range结束范围往前移一个字符，目的是为了不包括换行符 

.MoveEnd Unit:=wdWord, Count:=-1

 ‘取出段落序号 

num = Trim(.ListFormat.ListString)

 ‘取出Heading的内容 

content = Trim(.Text)  End With   

If num <> "" Then   

num = Replace(num, ".", "")

    With ActiveDocument.Bookmarks

    .Add Range:=Selection.Range, Name:="P" + num      

   .DefaultSorting = wdSortByName     

    .ShowHidden = False    

End With 

End If          

End Sub