значи

worksheets("Sheet1").range("A" & intM)

Dim st1 as worksheet

Set st1 = worksheets("Sheet1")

Dim intM as long



for intM = 1 to 100

  with st1

    .range("A" & intM) = "Towa e za kletka s adres: A" & intM

    .range("B" & intM) = "A towa e za: B" & intM

  end with

next intM

Съдържаниет е скрито
Влезте за да го видите