[已解决]VBA高手帮帮忙，感激不尽！

seymourxiaov

小弟最近用EXCEL统计点信息，初学VBA，不太会用，现在有个想法不能实现，麻烦高手指点一下。
Sub 添加信息()
    Dim s变量 As String
    s变量 = Cells(Range("B65536").End(xlUp).Row + 1, 1)     
    Range("B6:M6").Select
    Selection.Copy
    Cells(Range("B65536").End(xlUp).Row + 1, 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Replace What:="模板", Replacement:="s变量"
End Sub

我就是想让那个替换的数是个变量，怎么实现呢？

最佳答案

月排行榜 / 总排行榜

爱疯

2013-2-19 09:51

变量名不要用双引用括起来

Selection.Replace What:="模板", Replacement:=s变量

跳转到最佳答案楼层

爱疯

变量名不要用双引用括起来

Selection.Replace What:="模板", Replacement:=s变量

JLxiangwei

Sub 添加信息()
    Dim s变量 As String
    Dim s As String
    s = "变量"
    s变量 = Cells(Range("B65536").End(xlUp).Row + 1, 1)
    Range("B6:M6").Select
    Selection.Copy
    Cells(Range("B65536").End(xlUp).Row + 1, 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Replace What:="模板", Replacement:=s
End Sub

seymourxiaov

爱疯 发表于 2013-2-19 09:51
变量名不要用双引用括起来

Selection.Replace What:="模板", Replacement:=s变量

感激不尽，谢谢，希望以后有问题还能请教

seymourxiaov

JLxiangwei 发表于 2013-2-19 09:56
Sub 添加信息()
    Dim s变量 As String
    Dim s As String

感谢您细心的回复。