学习借鉴 随意指定单元格

goodboy003

他人借鉴  这里把 range("A1")  换成cells(x,y)  变成变量  这样可以随意指定单元格了

这个怎么写代码 ?   非常感谢
这个怎么写代码 ?   非常感谢

这个怎么写代码 ?   非常感谢


他人问题:
Excel VBA 这个怎么写循环？

I = 0

R = Range("A1").Select

I = 1

R = Range("A1").End(xlDown).End(xlDown).Select

I = K就RANG(). 中间就有2K个End（xlDown） .Select

知乎猴头儿回答的:

'运行字符串代码
Function StringExecute(s As String)
    Dim vbComp As Object
    Set vbComp = ThisWorkbook.VBProject.VBComponents.Add(1)
    vbComp.CodeModule.AddFromString "Sub foo()" & vbCrLf & s & vbCrLf & "End Sub"
    Application.Run vbComp.Name & ".foo"
    ThisWorkbook.VBProject.VBComponents.Remove vbComp
End Function


'拼接重复字符串
Function StrRept(ByVal s As String, ByVal k As Long)
Dim ss$
    For i = 1 To k
        ss = ss & s
    Next i
    StrRept = ss
End Function

'运行
Sub tt()
Dim s$, k&
k = 6
s = StrRept(".End(xlDown)", k)
s = "Range(" & """" & "A1" & """" & ")" & s & ".Select"
StringExecute s
End Sub

psxk3535

上附件，说出你的要求，看你描述是看不出具体问题的

goodboy003

已经解决
"Range(" & """" & "A1" & """" & ")" & s & ".Select"
改为
"cells(" & x & "," & y & ")" & s & ".Select"