kurs vba

1

2

3

4

5

6

7

8

9

10

Sub HelloWorld()

Cells(1, 1) = "Hello A1"

Range("B1") = "Hello B1"

Worksheets("Arkusz1").Cells(2, 1) = "Hello A2"

Worksheets("Arkusz1").Range("B2") = "Hello B2"

End Sub

1

2

3

4

5

6

7

8

9

10

Sub CopyCells()

Cells(1, 1).Copy Cells(4, 1)

Range("A1:B2").Copy Range("B4")

End Sub