VBA for Excel.txt

Private Sub test()
Sheet2.Range("a1") = 6
Sheet2.Range("a2") = 16
Sheet2.Range("a3") = 26

For i = 3 To 50
Cells(i, 1) = 4
Next i

For i = 3 To 50
Cells(i, 2) = i + 40
Next i

Dim xxx
Set xxx = Range("A1:A50")

Dim yyy
Set yyy = Range("B1:B50")

'Cells(55, 4) = xxx(5)

'For k = 1 To 49
'For l = 1 To 49
'Cells(k, l).Interior.ColorIndex = 19
'Next l
'Next k

'For i = 1 To 150
'For j = 1 To 150
'Cells(i, j) = ""