„Excel“ - makrokomandas, skirtas įterpti tuščias eilutes

  • Problema
  • Sprendimas

Problema

Bandote sukurti makrokomandą, kuri po kiekvieno įrašo į esamą skaičiuoklę įdės tuščių eilučių rinkinį. Reikalingų eilučių kiekis bus toks pat kiekvienam skaičiuoklės įrašui, tačiau jį reikės keisti kiekvieną kartą, kai jis naudojamas.

Čia yra pavyzdys ...

Šiuo metu:

 1 antraštinė dalis

2 antraštinė dalis

3 antraštinė dalis

4 antraštinė dalis

Naudojus „Macro“:

 1 antraštinė dalis

2 antraštinė dalis

3 antraštinė dalis

4 antraštinė dalis

Tuščios eilutės suma gali būti nuo 20 iki 40.

Sprendimas

A1 yra antraštės.

Tada pabandykite šį makrokomandą

saugoti savo originalų failą kažkur

pirmiausia atlikite išbandytus makrokomandos duomenis

 Sub bandymas ()

Dim j As Long, r Kaip diapazonas

j = InputBox („įveskite įterpiamų eilučių skaičių“)

Nustatyti r = intervalas („A2“)

Padarykite

Diapazonas (r.Offset (1, 0), r.Offset (j, 0)) EntireRow.Insert

Nustatyti r = ląstelės (r.Row + j + 1, 1)

MsgBox r.Address

Jei r.Offset (1, 0) = "" Tada Exit Do

Loop

Pabaiga

Ačiū venkat1926 už šį patarimą.

Ankstesnis Straipsnis Kitas Straipsnis

Geriausi Patarimai