传递两个参数到一个范围

我有两个参数是整数（xxddd和维），并希望将它们传递给单元格，您可以在下面的代码中看到，但它不起作用。

Sub freind (xxddd, dimen) Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(3) Dim rngA As Range Set rngA = ws.Range(Cells(1, 1).Address, Cells(xxddd, dimen).Address) end sub 

Answer 1

 Sub freind (xxddd, dimen) Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(3) Dim rngA As Range Set rngA = ws.Cells(1, 1).Resize(xxddd, dimen) end sub 

编辑：重新读你的问题我不知道为什么你原来的方法失败。 通常我们尽量不使用Cells()而不指定工作表，比如ws.Cells() ，但在这种情况下，在每个参数的末尾添加标签.Address应该已经解决了…