1.3 Rows(), Cells()

Sub CellDemo1()

Dim ws As Worksheet
Dim Sheetname As String

Sheetname = "Sheet3"

Set ws = ActiveWorkbook.Worksheets(Sheetname)

ws.Rows(2).Cells(2) = "Hello"

End Sub

1. Rows(row#) 指定列數
2. Cells(cell#) 指定第幾個儲存格 (由左至右數起)
3. Rows(#).Cells(#) 指定在某一列計起的第幾個儲存格