我一直在搜索如何为变量分配行并通过变量操作单元格,但我似乎无法找到如何执行此操作。
x = Sheet5.Range("A1").EntireRow
MsgBox x(1, 1)
上面的代码会让我进入'x'行,但有没有办法可以使用变量'x'更改单元格值? x(1,1)=“foo”不起作用,因为它不是一个我无法访问的对象.Value。
答案 0 :(得分:1)
以下是一些示例代码:
Sub Ranging()
Dim rng As Excel.Range
Dim ws As Excel.Worksheet
Set ws = ActiveSheet
Set rng = ws.Range("A1").EntireRow
With rng
Debug.Print .Cells(1).Value
Debug.Print .Cells(5).Address
.Cells(43).Value = "SurfN'Turf"
End With
End Sub
Debug.Print
打印到VBE的立即窗口(使用 Ctrl - G 进行访问)